home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 76.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 34 37 3a 35 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:47:51 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 63 75 73 74 |s-20.3/l|isp/cust|
|000000a0| 6f 6d 2f 77 69 64 2d 65 | 64 69 74 2e 65 6c 0a 3b |om/wid-e|dit.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 77 69 64 2d | (erro|r "`wid-|
|000001f0| 65 64 69 74 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |edit.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |il))...(|byte-cod|
|00000260| 65 20 22 c0 c1 21 88 c2 | c3 c4 5c 22 88 c2 c5 c6 |e "..!..|..\"....|
|00000270| c7 c8 24 88 c9 ca c7 cb | cc cd cc ce cc cf d0 d1 |..$.....|........|
|00000280| d2 d3 d2 d4 26 0f 88 c9 | d5 c7 d6 d2 ca 25 88 c9 |....&...|.....%..|
|00000290| d7 c7 d8 d2 ca d2 d9 26 | 07 87 22 20 5b 72 65 71 |.......&|.." [req|
|000002a0| 75 69 72 65 20 77 69 64 | 67 65 74 20 61 75 74 6f |uire wid|get auto|
|000002b0| 6c 6f 61 64 20 70 70 2d | 74 6f 2d 73 74 72 69 6e |load pp-|to-strin|
|000002c0| 67 20 22 70 70 22 20 66 | 69 6e 64 65 72 2d 63 6f |g "pp" f|inder-co|
|000002d0| 6d 6d 65 6e 74 61 72 79 | 20 22 66 69 6e 64 65 72 |mmentary| "finder|
|000002e0| 22 20 6e 69 6c 20 74 20 | 63 75 73 74 6f 6d 2d 64 |" nil t |custom-d|
|000002f0| 65 63 6c 61 72 65 2d 67 | 72 6f 75 70 20 77 69 64 |eclare-g|roup wid|
|00000300| 67 65 74 73 20 22 43 75 | 73 74 6f 6d 69 7a 61 74 |gets "Cu|stomizat|
|00000310| 69 6f 6e 20 73 75 70 70 | 6f 72 74 20 66 6f 72 20 |ion supp|ort for |
|00000320| 74 68 65 20 57 69 64 67 | 65 74 20 4c 69 62 72 61 |the Widg|et Libra|
|00000330| 72 79 2e 22 20 3a 6c 69 | 6e 6b 20 28 63 75 73 74 |ry." :li|nk (cust|
|00000340| 6f 6d 2d 6d 61 6e 75 61 | 6c 20 22 28 77 69 64 67 |om-manua|l "(widg|
|00000350| 65 74 29 54 6f 70 22 29 | 20 28 75 72 6c 2d 6c 69 |et)Top")| (url-li|
|00000360| 6e 6b 20 3a 74 61 67 20 | 22 44 65 76 65 6c 6f 70 |nk :tag |"Develop|
|00000370| 6d 65 6e 74 20 50 61 67 | 65 22 20 22 68 74 74 70 |ment Pag|e" "http|
|00000380| 3a 2f 2f 77 77 77 2e 64 | 69 6e 61 2e 6b 76 6c 2e |://www.d|ina.kvl.|
|00000390| 64 6b 2f 7e 61 62 72 61 | 68 61 6d 2f 63 75 73 74 |dk/~abra|ham/cust|
|000003a0| 6f 6d 2f 22 29 20 28 65 | 6d 61 63 73 2d 6c 69 62 |om/") (e|macs-lib|
|000003b0| 72 61 72 79 2d 6c 69 6e | 6b 20 3a 74 61 67 20 22 |rary-lin|k :tag "|
|000003c0| 4c 69 73 70 20 46 69 6c | 65 22 20 22 77 69 64 67 |Lisp Fil|e" "widg|
|000003d0| 65 74 2e 65 6c 22 29 20 | 3a 70 72 65 66 69 78 20 |et.el") |:prefix |
|000003e0| 22 77 69 64 67 65 74 2d | 22 20 3a 67 72 6f 75 70 |"widget-|" :group|
|000003f0| 20 65 78 74 65 6e 73 69 | 6f 6e 73 20 68 79 70 65 | extensi|ons hype|
|00000400| 72 6d 65 64 69 61 20 77 | 69 64 67 65 74 2d 64 6f |rmedia w|idget-do|
|00000410| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 22 4f 70 74 |cumentat|ion "Opt|
|00000420| 69 6f 6e 73 20 63 6f 6e | 74 72 6f 6c 69 6e 67 20 |ions con|troling |
|00000430| 74 68 65 20 64 69 73 70 | 6c 61 79 20 6f 66 20 64 |the disp|lay of d|
|00000440| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 73 74 72 |ocumenta|tion str|
|00000450| 69 6e 67 73 2e 22 20 77 | 69 64 67 65 74 2d 66 61 |ings." w|idget-fa|
|00000460| 63 65 73 20 22 46 61 63 | 65 73 20 75 73 65 64 20 |ces "Fac|es used |
|00000470| 62 79 20 74 68 65 20 77 | 69 64 67 65 74 20 6c 69 |by the w|idget li|
|00000480| 62 72 61 72 79 2e 22 20 | 66 61 63 65 73 5d 20 31 |brary." |faces] 1|
|00000490| 36 29 0a 23 40 31 31 39 | 20 46 61 63 65 20 75 73 |6).#@119| Face us|
|000004a0| 65 64 20 66 6f 72 20 64 | 6f 63 75 6d 65 6e 74 61 |ed for d|ocumenta|
|000004b0| 74 69 6f 6e 20 73 74 72 | 69 6e 67 73 20 69 6e 20 |tion str|ings in |
|000004c0| 77 69 64 67 65 73 2e 0a | 54 68 69 73 20 65 78 69 |widges..|This exi|
|000004d0| 73 74 73 20 61 73 20 61 | 20 76 61 72 69 61 62 6c |sts as a| variabl|
|000004e0| 65 20 73 6f 20 69 74 20 | 63 61 6e 20 62 65 20 73 |e so it |can be s|
|000004f0| 65 74 20 6c 6f 63 61 6c | 6c 79 20 69 6e 20 63 65 |et local|ly in ce|
|00000500| 72 74 61 69 6e 20 62 75 | 66 66 65 72 73 2e 1f 0a |rtain bu|ffers...|
|00000510| 28 64 65 66 76 61 72 20 | 77 69 64 67 65 74 2d 64 |(defvar |widget-d|
|00000520| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 2d 66 61 63 |ocumenta|tion-fac|
|00000530| 65 20 27 77 69 64 67 65 | 74 2d 64 6f 63 75 6d 65 |e 'widge|t-docume|
|00000540| 6e 74 61 74 69 6f 6e 2d | 66 61 63 65 20 28 23 24 |ntation-|face (#$|
|00000550| 20 2e 20 31 31 37 37 29 | 29 0a 28 63 75 73 74 6f | . 1177)|).(custo|
|00000560| 6d 2d 64 65 63 6c 61 72 | 65 2d 66 61 63 65 20 27 |m-declar|e-face '|
|00000570| 77 69 64 67 65 74 2d 64 | 6f 63 75 6d 65 6e 74 61 |widget-d|ocumenta|
|00000580| 74 69 6f 6e 2d 66 61 63 | 65 20 27 28 28 28 28 63 |tion-fac|e '((((c|
|00000590| 6c 61 73 73 20 63 6f 6c | 6f 72 29 20 28 62 61 63 |lass col|or) (bac|
|000005a0| 6b 67 72 6f 75 6e 64 20 | 64 61 72 6b 29 29 20 28 |kground |dark)) (|
|000005b0| 3a 66 6f 72 65 67 72 6f | 75 6e 64 20 22 6c 69 6d |:foregro|und "lim|
|000005c0| 65 20 67 72 65 65 6e 22 | 29 29 20 28 28 28 63 6c |e green"|)) (((cl|
|000005d0| 61 73 73 20 63 6f 6c 6f | 72 29 20 28 62 61 63 6b |ass colo|r) (back|
|000005e0| 67 72 6f 75 6e 64 20 6c | 69 67 68 74 29 29 20 28 |ground l|ight)) (|
|000005f0| 3a 66 6f 72 65 67 72 6f | 75 6e 64 20 22 64 61 72 |:foregro|und "dar|
|00000600| 6b 20 67 72 65 65 6e 22 | 29 29 20 28 74 20 6e 69 |k green"|)) (t ni|
|00000610| 6c 29 29 20 22 46 61 63 | 65 20 75 73 65 64 20 66 |l)) "Fac|e used f|
|00000620| 6f 72 20 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |or docum|entation|
|00000630| 20 74 65 78 74 2e 22 20 | 3a 67 72 6f 75 70 20 27 | text." |:group '|
|00000640| 77 69 64 67 65 74 2d 64 | 6f 63 75 6d 65 6e 74 61 |widget-d|ocumenta|
|00000650| 74 69 6f 6e 20 3a 67 72 | 6f 75 70 20 27 77 69 64 |tion :gr|oup 'wid|
|00000660| 67 65 74 2d 66 61 63 65 | 73 29 0a 23 40 31 30 35 |get-face|s).#@105|
|00000670| 20 46 61 63 65 20 75 73 | 65 64 20 66 6f 72 20 62 | Face us|ed for b|
|00000680| 75 74 74 6f 6e 73 20 69 | 6e 20 77 69 64 67 65 73 |uttons i|n widges|
|00000690| 2e 0a 54 68 69 73 20 65 | 78 69 73 74 73 20 61 73 |..This e|xists as|
|000006a0| 20 61 20 76 61 72 69 61 | 62 6c 65 20 73 6f 20 69 | a varia|ble so i|
|000006b0| 74 20 63 61 6e 20 62 65 | 20 73 65 74 20 6c 6f 63 |t can be| set loc|
|000006c0| 61 6c 6c 79 20 69 6e 20 | 63 65 72 74 61 69 6e 20 |ally in |certain |
|000006d0| 62 75 66 66 65 72 73 2e | 1f 0a 28 64 65 66 76 61 |buffers.|..(defva|
|000006e0| 72 20 77 69 64 67 65 74 | 2d 62 75 74 74 6f 6e 2d |r widget|-button-|
|000006f0| 66 61 63 65 20 27 77 69 | 64 67 65 74 2d 62 75 74 |face 'wi|dget-but|
|00000700| 74 6f 6e 2d 66 61 63 65 | 20 28 23 24 20 2e 20 31 |ton-face| (#$ . 1|
|00000710| 36 34 39 29 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |649)).(c|ustom-de|
|00000720| 63 6c 61 72 65 2d 66 61 | 63 65 20 27 77 69 64 67 |clare-fa|ce 'widg|
|00000730| 65 74 2d 62 75 74 74 6f | 6e 2d 66 61 63 65 20 27 |et-butto|n-face '|
|00000740| 28 28 74 20 28 3a 62 6f | 6c 64 20 74 29 29 29 20 |((t (:bo|ld t))) |
|00000750| 22 46 61 63 65 20 75 73 | 65 64 20 66 6f 72 20 77 |"Face us|ed for w|
|00000760| 69 64 67 65 74 20 62 75 | 74 74 6f 6e 73 2e 22 20 |idget bu|ttons." |
|00000770| 3a 67 72 6f 75 70 20 27 | 77 69 64 67 65 74 2d 66 |:group '|widget-f|
|00000780| 61 63 65 73 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |aces).(c|ustom-de|
|00000790| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|000007a0| 77 69 64 67 65 74 2d 6d | 6f 75 73 65 2d 66 61 63 |widget-m|ouse-fac|
|000007b0| 65 20 27 27 68 69 67 68 | 6c 69 67 68 74 20 22 46 |e ''high|light "F|
|000007c0| 61 63 65 20 75 73 65 64 | 20 66 6f 72 20 77 69 64 |ace used| for wid|
|000007d0| 67 65 74 20 62 75 74 74 | 6f 6e 73 20 77 68 65 6e |get butt|ons when|
|000007e0| 20 74 68 65 20 6d 6f 75 | 73 65 20 69 73 20 61 62 | the mou|se is ab|
|000007f0| 6f 76 65 20 74 68 65 6d | 2e 22 20 3a 74 79 70 65 |ove them|." :type|
|00000800| 20 27 66 61 63 65 20 3a | 67 72 6f 75 70 20 27 77 | 'face :|group 'w|
|00000810| 69 64 67 65 74 2d 66 61 | 63 65 73 29 0a 28 62 79 |idget-fa|ces).(by|
|00000820| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 c4 c5 25 |te-code |"......%|
|00000830| 88 c6 c7 21 ac 83 c8 16 | 07 c7 0e 09 42 16 09 ca |...!....|....B...|
|00000840| cb 21 ab 84 0e 07 ab 84 | cb cc 4d 88 c8 87 22 20 |.!......|..M..." |
|00000850| 5b 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |[custom-|declare-|
|00000860| 66 61 63 65 20 77 69 64 | 67 65 74 2d 66 69 65 6c |face wid|get-fiel|
|00000870| 64 2d 66 61 63 65 20 28 | 28 28 28 63 6c 61 73 73 |d-face (|(((class|
|00000880| 20 67 72 61 79 73 63 61 | 6c 65 20 63 6f 6c 6f 72 | graysca|le color|
|00000890| 29 20 28 62 61 63 6b 67 | 72 6f 75 6e 64 20 6c 69 |) (backg|round li|
|000008a0| 67 68 74 29 29 20 28 3a | 62 61 63 6b 67 72 6f 75 |ght)) (:|backgrou|
|000008b0| 6e 64 20 22 67 72 61 79 | 38 35 22 29 29 20 28 28 |nd "gray|85")) ((|
|000008c0| 28 63 6c 61 73 73 20 67 | 72 61 79 73 63 61 6c 65 |(class g|rayscale|
|000008d0| 20 63 6f 6c 6f 72 29 20 | 28 62 61 63 6b 67 72 6f | color) |(backgro|
|000008e0| 75 6e 64 20 64 61 72 6b | 29 29 20 28 3a 62 61 63 |und dark|)) (:bac|
|000008f0| 6b 67 72 6f 75 6e 64 20 | 22 64 69 6d 20 67 72 61 |kground |"dim gra|
|00000900| 79 22 29 29 20 28 74 20 | 28 3a 69 74 61 6c 69 63 |y")) (t |(:italic|
|00000910| 20 74 29 29 29 20 22 46 | 61 63 65 20 75 73 65 64 | t))) "F|ace used|
|00000920| 20 66 6f 72 20 65 64 69 | 74 61 62 6c 65 20 66 69 | for edi|table fi|
|00000930| 65 6c 64 73 2e 22 20 3a | 67 72 6f 75 70 20 77 69 |elds." :|group wi|
|00000940| 64 67 65 74 2d 66 61 63 | 65 73 20 62 6f 75 6e 64 |dget-fac|es bound|
|00000950| 70 20 77 69 64 67 65 74 | 2d 73 68 61 64 6f 77 2d |p widget|-shadow-|
|00000960| 73 75 62 72 73 20 6e 69 | 6c 20 63 75 72 72 65 6e |subrs ni|l curren|
|00000970| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 66 62 6f 75 |t-load-l|ist fbou|
|00000980| 6e 64 70 20 77 69 64 67 | 65 74 2d 70 6c 69 73 74 |ndp widg|et-plist|
|00000990| 2d 6d 65 6d 62 65 72 20 | 23 5b 28 70 6c 69 73 74 |-member |#[(plist|
|000009a0| 20 70 72 6f 70 29 20 22 | 08 ab 8d 08 40 09 61 ac | prop) "|....@.a.|
|000009b0| 87 08 41 41 89 10 ac 73 | 08 87 22 20 5b 70 6c 69 |..AA...s|.." [pli|
|000009c0| 73 74 20 70 72 6f 70 5d | 20 33 5d 5d 20 36 29 0a |st prop]| 3]] 6).|
|000009d0| 28 64 65 66 61 6c 69 61 | 73 20 27 77 69 64 67 65 |(defalia|s 'widge|
|000009e0| 74 2d 70 72 69 6e 63 2d | 74 6f 2d 73 74 72 69 6e |t-princ-|to-strin|
|000009f0| 67 20 23 5b 28 6f 62 6a | 65 63 74 29 20 22 72 c0 |g #[(obj|ect) "r.|
|00000a00| c1 21 71 88 c2 20 88 c3 | 0c 70 5c 22 88 c5 20 29 |.!q.. ..|.p\".. )|
|00000a10| 87 22 20 5b 67 65 74 2d | 62 75 66 66 65 72 2d 63 |." [get-|buffer-c|
|00000a20| 72 65 61 74 65 20 22 20 | 2a 77 69 64 67 65 74 2d |reate " |*widget-|
|00000a30| 74 6d 70 2a 22 20 65 72 | 61 73 65 2d 62 75 66 66 |tmp*" er|ase-buff|
|00000a40| 65 72 20 70 72 69 6e 63 | 20 6f 62 6a 65 63 74 20 |er princ| object |
|00000a50| 62 75 66 66 65 72 2d 73 | 74 72 69 6e 67 5d 20 33 |buffer-s|tring] 3|
|00000a60| 5d 29 0a 23 40 32 39 20 | 43 6c 65 61 72 20 61 6c |]).#@29 |Clear al|
|00000a70| 6c 20 75 6e 64 6f 20 69 | 6e 66 6f 72 6d 61 74 69 |l undo i|nformati|
|00000a80| 6f 6e 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |on...(de|falias '|
|00000a90| 77 69 64 67 65 74 2d 63 | 6c 65 61 72 2d 75 6e 64 |widget-c|lear-und|
|00000aa0| 6f 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 20 87 22 |o #[nil |". .. ."|
|00000ab0| 20 5b 62 75 66 66 65 72 | 2d 64 69 73 61 62 6c 65 | [buffer|-disable|
|00000ac0| 2d 75 6e 64 6f 20 62 75 | 66 66 65 72 2d 65 6e 61 |-undo bu|ffer-ena|
|00000ad0| 62 6c 65 2d 75 6e 64 6f | 5d 20 31 20 28 23 24 20 |ble-undo|] 1 (#$ |
|00000ae0| 2e 20 32 36 36 34 29 5d | 29 0a 28 63 75 73 74 6f |. 2664)]|).(custo|
|00000af0| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00000b00| 6c 65 20 27 77 69 64 67 | 65 74 2d 6d 65 6e 75 2d |le 'widg|et-menu-|
|00000b10| 6d 61 78 2d 73 69 7a 65 | 20 27 34 30 20 22 4c 61 |max-size| '40 "La|
|00000b20| 72 67 65 73 74 20 6e 75 | 6d 62 65 72 20 6f 66 20 |rgest nu|mber of |
|00000b30| 69 74 65 6d 73 20 61 6c | 6c 6f 77 65 64 20 69 6e |items al|lowed in|
|00000b40| 20 61 20 70 6f 70 75 70 | 2d 6d 65 6e 75 2e 5c 6e | a popup|-menu.\n|
|00000b50| 4c 61 72 67 65 72 20 6d | 65 6e 75 73 20 61 72 65 |Larger m|enus are|
|00000b60| 20 72 65 61 64 20 74 68 | 72 6f 75 67 68 20 74 68 | read th|rough th|
|00000b70| 65 20 6d 69 6e 69 62 75 | 66 66 65 72 2e 22 20 3a |e minibu|ffer." :|
|00000b80| 67 72 6f 75 70 20 27 77 | 69 64 67 65 74 73 20 3a |group 'w|idgets :|
|00000b90| 74 79 70 65 20 27 69 6e | 74 65 67 65 72 29 0a 28 |type 'in|teger).(|
|00000ba0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00000bb0| 61 72 69 61 62 6c 65 20 | 27 77 69 64 67 65 74 2d |ariable |'widget-|
|00000bc0| 6d 65 6e 75 2d 6d 69 6e | 69 62 75 66 66 65 72 2d |menu-min|ibuffer-|
|00000bd0| 66 6c 61 67 20 27 6e 69 | 6c 20 22 2a 43 6f 6e 74 |flag 'ni|l "*Cont|
|00000be0| 72 6f 6c 20 68 6f 77 20 | 74 6f 20 61 73 6b 20 66 |rol how |to ask f|
|00000bf0| 6f 72 20 61 20 63 68 6f | 69 63 65 20 66 72 6f 6d |or a cho|ice from|
|00000c00| 20 74 68 65 20 6b 65 79 | 62 6f 61 72 64 2e 5c 6e | the key|board.\n|
|00000c10| 4e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 75 73 |Non-nil |means us|
|00000c20| 65 20 74 68 65 20 6d 69 | 6e 69 62 75 66 66 65 72 |e the mi|nibuffer|
|00000c30| 3b 5c 6e 6e 69 6c 20 6d | 65 61 6e 73 20 72 65 61 |;\nnil m|eans rea|
|00000c40| 64 20 61 20 73 69 6e 67 | 6c 65 20 63 68 61 72 61 |d a sing|le chara|
|00000c50| 63 74 65 72 2e 22 20 3a | 67 72 6f 75 70 20 27 77 |cter." :|group 'w|
|00000c60| 69 64 67 65 74 73 20 3a | 74 79 70 65 20 27 62 6f |idgets :|type 'bo|
|00000c70| 6f 6c 65 61 6e 29 0a 23 | 40 35 35 36 20 43 68 6f |olean).#|@556 Cho|
|00000c80| 6f 73 65 20 61 6e 20 69 | 74 65 6d 20 66 72 6f 6d |ose an i|tem from|
|00000c90| 20 61 20 6c 69 73 74 2e | 0a 0a 46 69 72 73 74 20 | a list.|..First |
|00000ca0| 61 72 67 75 6d 65 6e 74 | 20 54 49 54 4c 45 20 69 |argument| TITLE i|
|00000cb0| 73 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |s the na|me of th|
|00000cc0| 65 20 6c 69 73 74 2e 0a | 53 65 63 6f 6e 64 20 61 |e list..|Second a|
|00000cd0| 72 67 75 6d 65 6e 74 20 | 49 54 45 4d 53 20 69 73 |rgument |ITEMS is|
|00000ce0| 20 61 6e 20 6c 69 73 74 | 20 77 68 6f 73 65 20 6d | an list| whose m|
|00000cf0| 65 6d 62 65 72 73 20 61 | 72 65 20 65 69 74 68 65 |embers a|re eithe|
|00000d00| 72 0a 20 28 4e 41 4d 45 | 20 2e 20 56 41 4c 55 45 |r. (NAME| . VALUE|
|00000d10| 29 2c 20 74 6f 20 69 6e | 64 69 63 61 74 65 20 73 |), to in|dicate s|
|00000d20| 65 6c 65 63 74 61 62 6c | 65 20 69 74 65 6d 73 2c |electabl|e items,|
|00000d30| 20 6f 72 20 6a 75 73 74 | 20 73 74 72 69 6e 67 73 | or just| strings|
|00000d40| 20 74 6f 0a 20 69 6e 64 | 69 63 61 74 65 20 75 6e | to. ind|icate un|
|00000d50| 73 65 6c 65 63 74 61 62 | 6c 65 20 69 74 65 6d 73 |selectab|le items|
|00000d60| 2e 0a 4f 70 74 69 6f 6e | 61 6c 20 74 68 69 72 64 |..Option|al third|
|00000d70| 20 61 72 67 75 6d 65 6e | 74 20 45 56 45 4e 54 20 | argumen|t EVENT |
|00000d80| 69 73 20 61 6e 20 69 6e | 70 75 74 20 65 76 65 6e |is an in|put even|
|00000d90| 74 2e 0a 0a 54 68 65 20 | 75 73 65 72 20 69 73 20 |t...The |user is |
|00000da0| 61 73 6b 65 64 20 74 6f | 20 63 68 6f 6f 73 65 20 |asked to| choose |
|00000db0| 62 65 74 77 65 65 6e 20 | 65 61 63 68 20 4e 41 4d |between |each NAM|
|00000dc0| 45 20 66 72 6f 6d 20 74 | 68 65 20 69 74 65 6d 73 |E from t|he items|
|00000dd0| 20 61 6c 69 73 74 2c 0a | 61 6e 64 20 74 68 65 20 | alist,.|and the |
|00000de0| 56 41 4c 55 45 20 6f 66 | 20 74 68 65 20 63 68 6f |VALUE of| the cho|
|00000df0| 73 65 6e 20 65 6c 65 6d | 65 6e 74 20 77 69 6c 6c |sen elem|ent will|
|00000e00| 20 62 65 20 72 65 74 75 | 72 6e 65 64 2e 20 20 49 | be retu|rned. I|
|00000e10| 66 20 45 56 45 4e 54 20 | 69 73 20 61 0a 6d 6f 75 |f EVENT |is a.mou|
|00000e20| 73 65 20 65 76 65 6e 74 | 2c 20 61 6e 64 20 74 68 |se event|, and th|
|00000e30| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 65 6c 65 6d |e number| of elem|
|00000e40| 65 6e 74 73 20 69 6e 20 | 69 74 65 6d 73 20 69 73 |ents in |items is|
|00000e50| 20 6c 65 73 73 20 74 68 | 61 6e 0a 60 77 69 64 67 | less th|an.`widg|
|00000e60| 65 74 2d 6d 65 6e 75 2d | 6d 61 78 2d 73 69 7a 65 |et-menu-|max-size|
|00000e70| 27 2c 20 61 20 70 6f 70 | 75 70 20 6d 65 6e 75 20 |', a pop|up menu |
|00000e80| 77 69 6c 6c 20 62 65 20 | 75 73 65 64 2c 20 6f 74 |will be |used, ot|
|00000e90| 68 65 72 77 69 73 65 20 | 74 68 65 0a 6d 69 6e 69 |herwise |the.mini|
|00000ea0| 62 75 66 66 65 72 2e 1f | 0a 28 64 65 66 61 6c 69 |buffer..|.(defali|
|00000eb0| 61 73 20 27 77 69 64 67 | 65 74 2d 63 68 6f 6f 73 |as 'widg|et-choos|
|00000ec0| 65 20 23 5b 28 74 69 74 | 6c 65 20 69 74 65 6d 73 |e #[(tit|le items|
|00000ed0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 65 76 65 6e 74 | &option|al event|
|00000ee0| 29 20 22 08 47 09 57 ab | b2 5c 6e ab af c3 20 ab |) ".G.W.|.\n... .|
|00000ef0| ab c4 0d c6 c7 08 5c 22 | 42 21 89 1e 08 ad 94 c9 |......\"|B!......|
|00000f00| 0e 08 21 3c ad 8d c9 0e | 08 21 a2 3b ad 85 c9 0e |..!<....|.!.;....|
|00000f10| 08 21 40 16 08 ca 0e 08 | 08 5c 22 41 29 87 0e 0b |.!@.....|.\"A)...|
|00000f20| 84 e7 00 08 47 cc 58 83 | e7 00 cd 20 1e 0e cd 0d |....G.X.|... ....|
|00000f30| 21 1e 0f d0 1e 11 d2 1e | 13 d2 1e 14 d5 0e 0e d6 |!.......|........|
|00000f40| 0e 0f 23 88 72 d7 d8 21 | 71 88 d9 20 88 da 63 88 |..#.r..!|q.. ..c.|
|00000f50| 08 d2 1e 1b 89 1e 1c ab | b8 0e 1c 40 89 16 1b 3a |........|...@...:|
|00000f60| ab a2 0e 1b 40 1e 1d 0e | 1b 41 1e 1e df e0 0e 11 |....@...|.A......|
|00000f70| 0e 1d 23 63 88 d5 0e 0f | e1 0e 11 21 0e 1e 23 88 |..#c....|...!..#.|
|00000f80| e2 16 13 2a 0e 11 54 16 | 11 0e 1c 41 89 16 1c ac |...*..T.|...A....|
|00000f90| 48 2a e3 63 88 29 0e 13 | ac 84 e4 e5 21 88 d5 0e |H*.c.)..|....!...|
|00000fa0| 0f e6 e7 23 88 d5 0e 0f | e8 e7 23 88 e9 ea 21 0e |...#....|..#...!.|
|00000fb0| 2b 42 16 2b ec 8b 88 ed | ee 21 88 0e 14 e7 61 ac |+B.+....|.!....a.|
|00000fc0| 84 0e 14 ac 84 e4 ef 21 | 88 0e 14 2d 87 f0 f1 08 |.......!|...-....|
|00000fd0| 5c 22 10 f2 0d f3 50 08 | d2 e2 24 89 1e 08 3b ad |\"....P.|..$...;.|
|00000fe0| 96 f4 0e 08 08 5c 22 89 | 1e 35 3b ab 84 0e 35 16 |.....\".|.5;...5.|
|00000ff0| 08 ca 0e 08 08 5c 22 41 | 29 29 87 22 20 5b 69 74 |.....\"A|))." [it|
|00001000| 65 6d 73 20 77 69 64 67 | 65 74 2d 6d 65 6e 75 2d |ems widg|et-menu-|
|00001010| 6d 61 78 2d 73 69 7a 65 | 20 65 76 65 6e 74 20 63 |max-size| event c|
|00001020| 6f 6e 73 6f 6c 65 2d 6f | 6e 2d 77 69 6e 64 6f 77 |onsole-o|n-window|
|00001030| 2d 73 79 73 74 65 6d 2d | 70 20 67 65 74 2d 70 6f |-system-|p get-po|
|00001040| 70 75 70 2d 6d 65 6e 75 | 2d 72 65 73 70 6f 6e 73 |pup-menu|-respons|
|00001050| 65 20 74 69 74 6c 65 20 | 6d 61 70 63 61 72 20 23 |e title |mapcar #|
|00001060| 5b 28 78 29 20 22 08 3b | ab 86 c1 08 c2 89 23 87 |[(x) ".;|......#.|
|00001070| c1 08 40 08 40 43 c3 23 | 87 22 20 5b 78 20 76 65 |..@.@C.#|." [x ve|
|00001080| 63 74 6f 72 20 6e 69 6c | 20 74 5d 20 34 5d 20 76 |ctor nil| t] 4] v|
|00001090| 61 6c 20 65 76 65 6e 74 | 2d 6f 62 6a 65 63 74 20 |al event|-object |
|000010a0| 61 73 73 6f 63 20 77 69 | 64 67 65 74 2d 6d 65 6e |assoc wi|dget-men|
|000010b0| 75 2d 6d 69 6e 69 62 75 | 66 66 65 72 2d 66 6c 61 |u-minibu|ffer-fla|
|000010c0| 67 20 31 30 20 6d 61 6b | 65 2d 73 70 61 72 73 65 |g 10 mak|e-sparse|
|000010d0| 2d 6b 65 79 6d 61 70 20 | 6f 76 65 72 72 69 64 69 |-keymap |overridi|
|000010e0| 6e 67 2d 74 65 72 6d 69 | 6e 61 6c 2d 6c 6f 63 61 |ng-termi|nal-loca|
|000010f0| 6c 2d 6d 61 70 20 6d 61 | 70 20 3f 30 20 6e 65 78 |l-map ma|p ?0 nex|
|00001100| 74 2d 64 69 67 69 74 20 | 6e 69 6c 20 73 6f 6d 65 |t-digit |nil some|
|00001110| 2d 63 68 6f 69 63 65 2d | 65 6e 61 62 6c 65 64 20 |-choice-|enabled |
|00001120| 76 61 6c 75 65 20 64 65 | 66 69 6e 65 2d 6b 65 79 |value de|fine-key|
|00001130| 20 22 20 22 20 67 65 74 | 2d 62 75 66 66 65 72 2d | " " get|-buffer-|
|00001140| 63 72 65 61 74 65 20 22 | 20 77 69 64 67 65 74 2d |create "| widget-|
|00001150| 63 68 6f 6f 73 65 22 20 | 65 72 61 73 65 2d 62 75 |choose" |erase-bu|
|00001160| 66 66 65 72 20 22 41 76 | 61 69 6c 61 62 6c 65 20 |ffer "Av|ailable |
|00001170| 63 68 6f 69 63 65 73 3a | 5c 6e 5c 6e 22 20 63 68 |choices:|\n\n" ch|
|00001180| 6f 69 63 65 20 2d 2d 64 | 6f 6c 69 73 74 2d 74 65 |oice --d|olist-te|
|00001190| 6d 70 2d 2d 38 38 31 34 | 37 20 6e 61 6d 65 20 66 |mp--8814|7 name f|
|000011a0| 75 6e 63 74 69 6f 6e 20 | 66 6f 72 6d 61 74 20 22 |unction |format "|
|000011b0| 25 63 20 3d 20 25 73 5c | 6e 22 20 76 65 63 74 6f |%c = %s\|n" vecto|
|000011c0| 72 20 74 20 22 5c 6e 43 | 2d 67 20 3d 20 51 75 69 |r t "\nC|-g = Qui|
|000011d0| 74 22 20 65 72 72 6f 72 | 20 22 4e 6f 6e 65 20 6f |t" error| "None o|
|000011e0| 66 20 74 68 65 20 63 68 | 6f 69 63 65 73 20 69 73 |f the ch|oices is|
|000011f0| 20 63 75 72 72 65 6e 74 | 6c 79 20 6d 65 61 6e 69 | current|ly meani|
|00001200| 6e 67 66 75 6c 22 20 5b | 3f 5c 5e 47 5d 20 6b 65 |ngful" [|?\^G] ke|
|00001210| 79 62 6f 61 72 64 2d 71 | 75 69 74 20 5b 74 5d 20 |yboard-q|uit [t] |
|00001220| 63 68 61 72 61 63 74 65 | 72 2d 74 6f 2d 65 76 65 |characte|r-to-eve|
|00001230| 6e 74 20 3f 5c 20 20 75 | 6e 72 65 61 64 2d 63 6f |nt ?\ u|nread-co|
|00001240| 6d 6d 61 6e 64 2d 65 76 | 65 6e 74 73 20 28 28 62 |mmand-ev|ents ((b|
|00001250| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 21 21 88 |yte-code| "...!!.|
|00001260| c3 1c c5 0e 06 c7 0e 08 | c9 50 c3 5c 22 5c 22 16 |........|.P.\"\".|
|00001270| 5c 6e 29 c0 87 22 20 5b | 64 69 73 70 6c 61 79 2d |\n).." [|display-|
|00001280| 62 75 66 66 65 72 20 67 | 65 74 2d 62 75 66 66 65 |buffer g|et-buffe|
|00001290| 72 20 22 20 77 69 64 67 | 65 74 2d 63 68 6f 6f 73 |r " widg|et-choos|
|000012a0| 65 22 20 74 20 63 75 72 | 73 6f 72 2d 69 6e 2d 65 |e" t cur|sor-in-e|
|000012b0| 63 68 6f 2d 61 72 65 61 | 20 6c 6f 6f 6b 75 70 2d |cho-area| lookup-|
|000012c0| 6b 65 79 20 6f 76 65 72 | 72 69 64 69 6e 67 2d 74 |key over|riding-t|
|000012d0| 65 72 6d 69 6e 61 6c 2d | 6c 6f 63 61 6c 2d 6d 61 |erminal-|local-ma|
|000012e0| 70 20 72 65 61 64 2d 6b | 65 79 2d 73 65 71 75 65 |p read-k|ey-seque|
|000012f0| 6e 63 65 20 74 69 74 6c | 65 20 22 3a 20 22 20 76 |nce titl|e ": " v|
|00001300| 61 6c 75 65 5d 20 35 29 | 29 20 6d 65 73 73 61 67 |alue] 5)|) messag|
|00001310| 65 20 22 22 20 22 43 61 | 6e 63 65 6c 65 64 22 20 |e "" "Ca|nceled" |
|00001320| 72 65 6d 6f 76 65 2d 69 | 66 20 73 74 72 69 6e 67 |remove-i|f string|
|00001330| 70 20 63 6f 6d 70 6c 65 | 74 69 6e 67 2d 72 65 61 |p comple|ting-rea|
|00001340| 64 20 22 3a 20 22 20 74 | 72 79 2d 63 6f 6d 70 6c |d ": " t|ry-compl|
|00001350| 65 74 69 6f 6e 20 74 72 | 79 5d 20 36 20 28 23 24 |etion tr|y] 6 (#$|
|00001360| 20 2e 20 33 31 39 37 29 | 5d 29 0a 28 63 75 73 74 | . 3197)|]).(cust|
|00001370| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00001380| 62 6c 65 20 27 77 69 64 | 67 65 74 2d 66 69 65 6c |ble 'wid|get-fiel|
|00001390| 64 2d 61 64 64 2d 73 70 | 61 63 65 20 27 74 20 22 |d-add-sp|ace 't "|
|000013a0| 4e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 61 64 |Non-nil |means ad|
|000013b0| 64 20 65 78 74 72 61 20 | 73 70 61 63 65 20 61 74 |d extra |space at|
|000013c0| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 65 64 69 74 | the end| of edit|
|000013d0| 61 62 6c 65 20 74 65 78 | 74 20 66 69 65 6c 64 73 |able tex|t fields|
|000013e0| 2e 5c 6e 5c 6e 54 68 69 | 73 20 69 73 20 6e 65 65 |.\n\nThi|s is nee|
|000013f0| 64 65 64 20 6f 6e 20 61 | 6c 6c 20 76 65 72 73 69 |ded on a|ll versi|
|00001400| 6f 6e 73 20 6f 66 20 45 | 6d 61 63 73 2e 20 20 49 |ons of E|macs. I|
|00001410| 66 20 79 6f 75 20 64 6f | 6e 27 74 20 61 64 64 20 |f you do|n't add |
|00001420| 74 68 65 20 73 70 61 63 | 65 2c 5c 6e 69 74 20 77 |the spac|e,\nit w|
|00001430| 69 6c 6c 20 62 65 63 6f | 6d 65 20 69 6d 70 6f 73 |ill beco|me impos|
|00001440| 73 69 62 6c 65 20 74 6f | 20 65 64 69 74 20 61 20 |sible to| edit a |
|00001450| 7a 65 72 6f 20 73 69 7a | 65 20 66 69 65 6c 64 2e |zero siz|e field.|
|00001460| 22 20 3a 74 79 70 65 20 | 27 62 6f 6f 6c 65 61 6e |" :type |'boolean|
|00001470| 20 3a 67 72 6f 75 70 20 | 27 77 69 64 67 65 74 73 | :group |'widgets|
|00001480| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|00001490| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 77 69 64 67 |e-variab|le 'widg|
|000014a0| 65 74 2d 66 69 65 6c 64 | 2d 75 73 65 2d 62 65 66 |et-field|-use-bef|
|000014b0| 6f 72 65 2d 63 68 61 6e | 67 65 20 27 28 61 6e 64 |ore-chan|ge '(and|
|000014c0| 20 28 6f 72 20 28 3e 20 | 65 6d 61 63 73 2d 6d 69 | (or (> |emacs-mi|
|000014d0| 6e 6f 72 2d 76 65 72 73 | 69 6f 6e 20 33 34 29 20 |nor-vers|ion 34) |
|000014e0| 28 3e 20 65 6d 61 63 73 | 2d 6d 61 6a 6f 72 2d 76 |(> emacs|-major-v|
|000014f0| 65 72 73 69 6f 6e 20 31 | 39 29 29 20 28 6e 6f 74 |ersion 1|9)) (not|
|00001500| 20 28 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | (string|-match "|
|00001510| 58 45 6d 61 63 73 22 20 | 65 6d 61 63 73 2d 76 65 |XEmacs" |emacs-ve|
|00001520| 72 73 69 6f 6e 29 29 29 | 20 22 4e 6f 6e 2d 6e 69 |rsion)))| "Non-ni|
|00001530| 6c 20 6d 65 61 6e 73 20 | 75 73 65 20 60 62 65 66 |l means |use `bef|
|00001540| 6f 72 65 2d 63 68 61 6e | 67 65 2d 66 75 6e 63 74 |ore-chan|ge-funct|
|00001550| 69 6f 6e 73 27 20 74 6f | 20 74 72 61 63 6b 20 65 |ions' to| track e|
|00001560| 64 69 74 61 62 6c 65 20 | 66 69 65 6c 64 73 2e 5c |ditable |fields.\|
|00001570| 6e 54 68 69 73 20 65 6e | 61 62 6c 65 73 20 74 68 |nThis en|ables th|
|00001580| 65 20 75 73 65 20 6f 66 | 20 75 6e 64 6f 2c 20 62 |e use of| undo, b|
|00001590| 75 74 20 64 6f 65 73 6e | 27 74 20 77 6f 72 6b 20 |ut doesn|'t work |
|000015a0| 6f 6e 20 45 6d 61 63 73 | 20 31 39 2e 33 34 20 61 |on Emacs| 19.34 a|
|000015b0| 6e 64 20 65 61 72 6c 69 | 65 72 2e 5c 6e 55 73 69 |nd earli|er.\nUsi|
|000015c0| 6e 67 20 62 65 66 6f 72 | 65 20 68 6f 6f 6b 73 20 |ng befor|e hooks |
|000015d0| 61 6c 73 6f 20 6d 65 61 | 6e 73 20 74 68 61 74 20 |also mea|ns that |
|000015e0| 74 68 65 20 3a 6e 6f 74 | 69 66 79 20 66 75 6e 63 |the :not|ify func|
|000015f0| 74 69 6f 6e 20 63 61 6e | 27 74 20 6b 6e 6f 77 20 |tion can|'t know |
|00001600| 74 68 65 5c 6e 6e 65 77 | 20 76 61 6c 75 65 2e 22 |the\nnew| value."|
|00001610| 20 3a 74 79 70 65 20 27 | 62 6f 6f 6c 65 61 6e 20 | :type '|boolean |
|00001620| 3a 67 72 6f 75 70 20 27 | 77 69 64 67 65 74 73 29 |:group '|widgets)|
|00001630| 0a 23 40 35 37 20 53 70 | 65 63 69 66 79 20 65 64 |.#@57 Sp|ecify ed|
|00001640| 69 74 61 62 6c 65 20 62 | 75 74 74 6f 6e 20 66 6f |itable b|utton fo|
|00001650| 72 20 57 49 44 47 45 54 | 20 62 65 74 77 65 65 6e |r WIDGET| between|
|00001660| 20 46 52 4f 4d 20 61 6e | 64 20 54 4f 2e 1f 0a 28 | FROM an|d TO...(|
|00001670| 64 65 66 61 6c 69 61 73 | 20 27 77 69 64 67 65 74 |defalias| 'widget|
|00001680| 2d 73 70 65 63 69 66 79 | 2d 66 69 65 6c 64 20 23 |-specify|-field #|
|00001690| 5b 28 77 69 64 67 65 74 | 20 66 72 6f 6d 20 74 6f |[(widget| from to|
|000016a0| 29 20 22 8a 08 62 88 c1 | 5c 6e c3 5c 22 ac 85 c4 |) "..b..|\n.\"...|
|000016b0| 75 88 aa 87 0d ab 84 c6 | c7 21 88 60 10 29 c1 5c |u.......|.!.`.).\|
|000016c0| 6e c8 5c 22 c1 5c 6e c9 | 5c 22 ae 81 ca c1 5c 6e |n.\".\n.|\"....\n|
|000016d0| cb 5c 22 cc 0e 0d 08 5c | 22 1e 0e 1e 0f 1e 10 1e |.\"....\|".......|
|000016e0| 11 0e 0f 3b ac 87 0e 0f | ab 83 d2 16 0f d3 5c 6e |...;....|......\n|
|000016f0| d4 0e 0e 23 88 0d ab 86 | c1 5c 6e c3 5c 22 ab 87 |...#....|.\n.\"..|
|00001700| d5 0e 0e d6 d7 23 88 d5 | 0e 0e d8 d7 23 88 d5 0e |.....#..|....#...|
|00001710| 0e d9 5c 6e 23 88 d5 0e | 0e da db 23 88 d5 0e 0e |..\n#...|...#....|
|00001720| dc 0e 11 23 88 d5 0e 0e | d0 0e 10 23 88 d5 0e 0e |...#....|...#....|
|00001730| dd 0e 0f 23 88 d5 0e 0e | cf 0e 0f 23 2c 87 22 20 |...#....|...#,." |
|00001740| 5b 74 6f 20 77 69 64 67 | 65 74 2d 67 65 74 20 77 |[to widg|et-get w|
|00001750| 69 64 67 65 74 20 3a 73 | 69 7a 65 20 31 20 77 69 |idget :s|ize 1 wi|
|00001760| 64 67 65 74 2d 66 69 65 | 6c 64 2d 61 64 64 2d 73 |dget-fie|ld-add-s|
|00001770| 70 61 63 65 20 69 6e 73 | 65 72 74 2d 61 6e 64 2d |pace ins|ert-and-|
|00001780| 69 6e 68 65 72 69 74 20 | 22 20 22 20 3a 6b 65 79 |inherit |" " :key|
|00001790| 6d 61 70 20 3a 76 61 6c | 75 65 2d 66 61 63 65 20 |map :val|ue-face |
|000017a0| 77 69 64 67 65 74 2d 66 | 69 65 6c 64 2d 66 61 63 |widget-f|ield-fac|
|000017b0| 65 20 3a 68 65 6c 70 2d | 65 63 68 6f 20 6d 61 6b |e :help-|echo mak|
|000017c0| 65 2d 65 78 74 65 6e 74 | 20 66 72 6f 6d 20 65 78 |e-extent| from ex|
|000017d0| 74 65 6e 74 20 68 65 6c | 70 2d 65 63 68 6f 20 66 |tent hel|p-echo f|
|000017e0| 61 63 65 20 6d 61 70 20 | 77 69 64 67 65 74 2d 6d |ace map |widget-m|
|000017f0| 6f 75 73 65 2d 68 65 6c | 70 20 77 69 64 67 65 74 |ouse-hel|p widget|
|00001800| 2d 70 75 74 20 3a 66 69 | 65 6c 64 2d 65 78 74 65 |-put :fi|eld-exte|
|00001810| 6e 74 20 73 65 74 2d 65 | 78 74 65 6e 74 2d 70 72 |nt set-e|xtent-pr|
|00001820| 6f 70 65 72 74 79 20 65 | 6e 64 2d 63 6c 6f 73 65 |operty e|nd-close|
|00001830| 64 20 6e 69 6c 20 64 65 | 74 61 63 68 61 62 6c 65 |d nil de|tachable|
|00001840| 20 66 69 65 6c 64 20 62 | 75 74 74 6f 6e 2d 6f 72 | field b|utton-or|
|00001850| 2d 66 69 65 6c 64 20 74 | 20 6b 65 79 6d 61 70 20 |-field t| keymap |
|00001860| 62 61 6c 6c 6f 6f 6e 2d | 68 65 6c 70 5d 20 36 20 |balloon-|help] 6 |
|00001870| 28 23 24 20 2e 20 35 36 | 38 36 29 5d 29 0a 23 40 |(#$ . 56|86)]).#@|
|00001880| 34 38 20 53 70 65 63 69 | 66 79 20 62 75 74 74 6f |48 Speci|fy butto|
|00001890| 6e 20 66 6f 72 20 57 49 | 44 47 45 54 20 62 65 74 |n for WI|DGET bet|
|000018a0| 77 65 65 6e 20 46 52 4f | 4d 20 61 6e 64 20 54 4f |ween FRO|M and TO|
|000018b0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 69 |...(defa|lias 'wi|
|000018c0| 64 67 65 74 2d 73 70 65 | 63 69 66 79 2d 62 75 74 |dget-spe|cify-but|
|000018d0| 74 6f 6e 20 23 5b 28 77 | 69 64 67 65 74 20 66 72 |ton #[(w|idget fr|
|000018e0| 6f 6d 20 74 6f 29 20 22 | c0 09 c2 5c 22 c3 09 c4 |om to) "|...\"...|
|000018f0| 5c 22 c5 0e 06 0e 07 5c | 22 c3 09 c8 5c 22 1e 09 |\".....\|"...\"..|
|00001900| 1e 5c 6e 1e 0b 1e 0c cd | 09 ce 0e 5c 6e 23 88 0e |.\n.....|...\n#..|
|00001910| 0b ab 88 0e 0b 3b ac 83 | cf 16 0b d0 0e 5c 6e d1 |.....;..|.....\n.|
|00001920| d2 23 88 d0 0e 5c 6e d3 | 09 23 88 d0 0e 5c 6e d4 |.#...\n.|.#...\n.|
|00001930| d2 23 88 d0 0e 5c 6e d5 | 0e 16 23 88 d0 0e 5c 6e |.#...\n.|..#...\n|
|00001940| d7 0e 0b 23 88 d0 0e 5c | 6e cb 0e 0b 23 88 d0 0e |...#...\|n...#...|
|00001950| 5c 6e cc 0e 0c 23 88 d0 | 0e 5c 6e d8 0e 09 23 2c |\n...#..|.\n...#,|
|00001960| 87 22 20 5b 77 69 64 67 | 65 74 2d 61 70 70 6c 79 |." [widg|et-apply|
|00001970| 20 77 69 64 67 65 74 20 | 3a 62 75 74 74 6f 6e 2d | widget |:button-|
|00001980| 66 61 63 65 2d 67 65 74 | 20 77 69 64 67 65 74 2d |face-get| widget-|
|00001990| 67 65 74 20 3a 68 65 6c | 70 2d 65 63 68 6f 20 6d |get :hel|p-echo m|
|000019a0| 61 6b 65 2d 65 78 74 65 | 6e 74 20 66 72 6f 6d 20 |ake-exte|nt from |
|000019b0| 74 6f 20 3a 62 75 74 74 | 6f 6e 2d 6b 65 79 6d 61 |to :butt|on-keyma|
|000019c0| 70 20 6d 61 70 20 65 78 | 74 65 6e 74 20 68 65 6c |p map ex|tent hel|
|000019d0| 70 2d 65 63 68 6f 20 66 | 61 63 65 20 77 69 64 67 |p-echo f|ace widg|
|000019e0| 65 74 2d 70 75 74 20 3a | 62 75 74 74 6f 6e 2d 65 |et-put :|button-e|
|000019f0| 78 74 65 6e 74 20 77 69 | 64 67 65 74 2d 6d 6f 75 |xtent wi|dget-mou|
|00001a00| 73 65 2d 68 65 6c 70 20 | 73 65 74 2d 65 78 74 65 |se-help |set-exte|
|00001a10| 6e 74 2d 70 72 6f 70 65 | 72 74 79 20 73 74 61 72 |nt-prope|rty star|
|00001a20| 74 2d 6f 70 65 6e 20 74 | 20 62 75 74 74 6f 6e 20 |t-open t| button |
|00001a30| 62 75 74 74 6f 6e 2d 6f | 72 2d 66 69 65 6c 64 20 |button-o|r-field |
|00001a40| 6d 6f 75 73 65 2d 66 61 | 63 65 20 77 69 64 67 65 |mouse-fa|ce widge|
|00001a50| 74 2d 6d 6f 75 73 65 2d | 66 61 63 65 20 62 61 6c |t-mouse-|face bal|
|00001a60| 6c 6f 6f 6e 2d 68 65 6c | 70 20 6b 65 79 6d 61 70 |loon-hel|p keymap|
|00001a70| 5d 20 36 20 28 23 24 20 | 2e 20 36 32 37 35 29 5d |] 6 (#$ |. 6275)]|
|00001a80| 29 0a 23 40 34 36 20 46 | 69 6e 64 20 6d 6f 75 73 |).#@46 F|ind mous|
|00001a90| 65 20 68 65 6c 70 20 73 | 74 72 69 6e 67 20 66 6f |e help s|tring fo|
|00001aa0| 72 20 62 75 74 74 6f 6e | 20 69 6e 20 65 78 74 65 |r button| in exte|
|00001ab0| 6e 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nt...(de|falias '|
|00001ac0| 77 69 64 67 65 74 2d 6d | 6f 75 73 65 2d 68 65 6c |widget-m|ouse-hel|
|00001ad0| 70 20 23 5b 28 65 78 74 | 65 6e 74 29 20 22 c0 c1 |p #[(ext|ent) "..|
|00001ae0| 5c 6e 21 21 89 1b ad 84 | c4 0b c5 5c 22 89 1e 06 |\n!!....|...\"...|
|00001af0| 3b ab 84 0e 06 aa 9a c7 | 0e 06 21 ab 8e 0e 06 0b |;.......|..!.....|
|00001b00| 21 89 16 06 3b ab 84 0e | 06 aa 86 c8 c9 0b 0e 06 |!...;...|........|
|00001b10| 23 2a 87 22 20 5b 77 69 | 64 67 65 74 2d 61 74 20 |#*." [wi|dget-at |
|00001b20| 65 78 74 65 6e 74 2d 73 | 74 61 72 74 2d 70 6f 73 |extent-s|tart-pos|
|00001b30| 69 74 69 6f 6e 20 65 78 | 74 65 6e 74 20 77 69 64 |ition ex|tent wid|
|00001b40| 67 65 74 20 77 69 64 67 | 65 74 2d 67 65 74 20 3a |get widg|et-get :|
|00001b50| 68 65 6c 70 2d 65 63 68 | 6f 20 68 65 6c 70 2d 65 |help-ech|o help-e|
|00001b60| 63 68 6f 20 66 75 6e 63 | 74 69 6f 6e 70 20 66 6f |cho func|tionp fo|
|00001b70| 72 6d 61 74 20 22 28 77 | 69 64 67 65 74 20 25 53 |rmat "(w|idget %S|
|00001b80| 20 3a 68 65 6c 70 2d 65 | 63 68 6f 20 25 53 29 22 | :help-e|cho %S)"|
|00001b90| 5d 20 35 20 28 23 24 20 | 2e 20 36 37 39 31 29 5d |] 5 (#$ |. 6791)]|
|00001ba0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 77 69 64 |).(defal|ias 'wid|
|00001bb0| 67 65 74 2d 73 70 65 63 | 69 66 79 2d 73 61 6d 70 |get-spec|ify-samp|
|00001bc0| 6c 65 20 23 5b 28 77 69 | 64 67 65 74 20 66 72 6f |le #[(wi|dget fro|
|00001bd0| 6d 20 74 6f 29 20 22 c0 | 09 c2 5c 22 c3 0c 0d c6 |m to) ".|..\"....|
|00001be0| 23 1e 07 1e 08 c9 0e 07 | ca cb 23 88 c9 0e 07 c8 |#.......|..#.....|
|00001bf0| 0e 08 23 88 cc 09 cd 0e | 07 23 2a 87 22 20 5b 77 |..#.....|.#*." [w|
|00001c00| 69 64 67 65 74 2d 61 70 | 70 6c 79 20 77 69 64 67 |idget-ap|ply widg|
|00001c10| 65 74 20 3a 73 61 6d 70 | 6c 65 2d 66 61 63 65 2d |et :samp|le-face-|
|00001c20| 67 65 74 20 6d 61 6b 65 | 2d 65 78 74 65 6e 74 20 |get make|-extent |
|00001c30| 66 72 6f 6d 20 74 6f 20 | 6e 69 6c 20 65 78 74 65 |from to |nil exte|
|00001c40| 6e 74 20 66 61 63 65 20 | 73 65 74 2d 65 78 74 65 |nt face |set-exte|
|00001c50| 6e 74 2d 70 72 6f 70 65 | 72 74 79 20 73 74 61 72 |nt-prope|rty star|
|00001c60| 74 2d 6f 70 65 6e 20 74 | 20 77 69 64 67 65 74 2d |t-open t| widget-|
|00001c70| 70 75 74 20 3a 73 61 6d | 70 6c 65 2d 65 78 74 65 |put :sam|ple-exte|
|00001c80| 6e 74 5d 20 35 5d 29 0a | 28 64 65 66 61 6c 69 61 |nt] 5]).|(defalia|
|00001c90| 73 20 27 77 69 64 67 65 | 74 2d 73 70 65 63 69 66 |s 'widge|t-specif|
|00001ca0| 79 2d 64 6f 63 20 23 5b | 28 77 69 64 67 65 74 20 |y-doc #[|(widget |
|00001cb0| 66 72 6f 6d 20 74 6f 29 | 20 22 c0 09 5c 6e 5c 22 |from to)| "..\n\"|
|00001cc0| 1b c4 0b c5 c6 23 88 c4 | 0b c7 0e 08 23 88 c4 0b |.....#..|....#...|
|00001cd0| c9 0e 5c 6e 23 88 cb 0e | 08 cc 0b 23 29 87 22 20 |..\n#...|...#)." |
|00001ce0| 5b 6d 61 6b 65 2d 65 78 | 74 65 6e 74 20 66 72 6f |[make-ex|tent fro|
|00001cf0| 6d 20 74 6f 20 65 78 74 | 65 6e 74 20 73 65 74 2d |m to ext|ent set-|
|00001d00| 65 78 74 65 6e 74 2d 70 | 72 6f 70 65 72 74 79 20 |extent-p|roperty |
|00001d10| 73 74 61 72 74 2d 6f 70 | 65 6e 20 74 20 77 69 64 |start-op|en t wid|
|00001d20| 67 65 74 2d 64 6f 63 20 | 77 69 64 67 65 74 20 66 |get-doc |widget f|
|00001d30| 61 63 65 20 77 69 64 67 | 65 74 2d 64 6f 63 75 6d |ace widg|et-docum|
|00001d40| 65 6e 74 61 74 69 6f 6e | 2d 66 61 63 65 20 77 69 |entation|-face wi|
|00001d50| 64 67 65 74 2d 70 75 74 | 20 3a 64 6f 63 2d 65 78 |dget-put| :doc-ex|
|00001d60| 74 65 6e 74 5d 20 34 5d | 29 0a 28 64 65 66 61 6c |tent] 4]|).(defal|
|00001d70| 69 61 73 20 27 77 69 64 | 67 65 74 2d 73 70 65 63 |ias 'wid|get-spec|
|00001d80| 69 66 79 2d 69 6e 73 65 | 72 74 20 27 28 6d 61 63 |ify-inse|rt '(mac|
|00001d90| 72 6f 20 2e 20 23 5b 28 | 26 72 65 73 74 20 66 6f |ro . #[(|&rest fo|
|00001da0| 72 6d 29 20 22 c0 c1 c2 | c3 c4 c5 c6 c7 0e 08 42 |rm) "...|.......B|
|00001db0| c9 42 42 af 06 44 87 22 | 20 5b 73 61 76 65 2d 72 |.BB..D."| [save-r|
|00001dc0| 65 73 74 72 69 63 74 69 | 6f 6e 20 6c 65 74 20 28 |estricti|on let (|
|00001dd0| 28 69 6e 68 69 62 69 74 | 2d 72 65 61 64 2d 6f 6e |(inhibit|-read-on|
|00001de0| 6c 79 20 74 29 20 62 65 | 66 6f 72 65 2d 63 68 61 |ly t) be|fore-cha|
|00001df0| 6e 67 65 2d 66 75 6e 63 | 74 69 6f 6e 73 20 61 66 |nge-func|tions af|
|00001e00| 74 65 72 2d 63 68 61 6e | 67 65 2d 66 75 6e 63 74 |ter-chan|ge-funct|
|00001e10| 69 6f 6e 73 29 20 28 69 | 6e 73 65 72 74 20 22 3c |ions) (i|nsert "<|
|00001e20| 3e 22 29 20 28 6e 61 72 | 72 6f 77 2d 74 6f 2d 72 |>") (nar|row-to-r|
|00001e30| 65 67 69 6f 6e 20 28 2d | 20 28 70 6f 69 6e 74 29 |egion (-| (point)|
|00001e40| 20 32 29 20 28 70 6f 69 | 6e 74 29 29 20 28 67 6f | 2) (poi|nt)) (go|
|00001e50| 74 6f 2d 63 68 61 72 20 | 28 31 2b 20 28 70 6f 69 |to-char |(1+ (poi|
|00001e60| 6e 74 2d 6d 69 6e 29 29 | 29 20 70 72 6f 67 31 20 |nt-min))|) prog1 |
|00001e70| 70 72 6f 67 6e 20 66 6f | 72 6d 20 28 28 64 65 6c |progn fo|rm ((del|
|00001e80| 65 74 65 2d 72 65 67 69 | 6f 6e 20 28 70 6f 69 6e |ete-regi|on (poin|
|00001e90| 74 2d 6d 69 6e 29 20 28 | 31 2b 20 28 70 6f 69 6e |t-min) (|1+ (poin|
|00001ea0| 74 2d 6d 69 6e 29 29 29 | 20 28 64 65 6c 65 74 65 |t-min)))| (delete|
|00001eb0| 2d 72 65 67 69 6f 6e 20 | 28 31 2d 20 28 70 6f 69 |-region |(1- (poi|
|00001ec0| 6e 74 2d 6d 61 78 29 29 | 20 28 70 6f 69 6e 74 2d |nt-max))| (point-|
|00001ed0| 6d 61 78 29 29 20 28 67 | 6f 74 6f 2d 63 68 61 72 |max)) (g|oto-char|
|00001ee0| 20 28 70 6f 69 6e 74 2d | 6d 61 78 29 29 29 5d 20 | (point-|max)))] |
|00001ef0| 39 5d 29 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |9])).(by|te-code |
|00001f00| 22 c0 c1 c2 c3 23 88 c4 | c5 c6 c7 c8 c9 25 87 22 |"....#..|.....%."|
|00001f10| 20 5b 70 75 74 20 77 69 | 64 67 65 74 2d 73 70 65 | [put wi|dget-spe|
|00001f20| 63 69 66 79 2d 69 6e 73 | 65 72 74 20 65 64 65 62 |cify-ins|ert edeb|
|00001f30| 75 67 2d 66 6f 72 6d 2d | 73 70 65 63 20 28 26 72 |ug-form-|spec (&r|
|00001f40| 65 73 74 20 66 6f 72 6d | 29 20 63 75 73 74 6f 6d |est form|) custom|
|00001f50| 2d 64 65 63 6c 61 72 65 | 2d 66 61 63 65 20 77 69 |-declare|-face wi|
|00001f60| 64 67 65 74 2d 69 6e 61 | 63 74 69 76 65 2d 66 61 |dget-ina|ctive-fa|
|00001f70| 63 65 20 28 28 28 28 63 | 6c 61 73 73 20 67 72 61 |ce ((((c|lass gra|
|00001f80| 79 73 63 61 6c 65 20 63 | 6f 6c 6f 72 29 20 28 62 |yscale c|olor) (b|
|00001f90| 61 63 6b 67 72 6f 75 6e | 64 20 64 61 72 6b 29 29 |ackgroun|d dark))|
|00001fa0| 20 28 3a 66 6f 72 65 67 | 72 6f 75 6e 64 20 22 6c | (:foreg|round "l|
|00001fb0| 69 67 68 74 20 67 72 61 | 79 22 29 29 20 28 28 28 |ight gra|y")) (((|
|00001fc0| 63 6c 61 73 73 20 67 72 | 61 79 73 63 61 6c 65 20 |class gr|ayscale |
|00001fd0| 63 6f 6c 6f 72 29 20 28 | 62 61 63 6b 67 72 6f 75 |color) (|backgrou|
|00001fe0| 6e 64 20 6c 69 67 68 74 | 29 29 20 28 3a 66 6f 72 |nd light|)) (:for|
|00001ff0| 65 67 72 6f 75 6e 64 20 | 22 64 69 6d 20 67 72 61 |eground |"dim gra|
|00002000| 79 22 29 29 20 28 74 20 | 28 3a 69 74 61 6c 69 63 |y")) (t |(:italic|
|00002010| 20 74 29 29 29 20 22 46 | 61 63 65 20 75 73 65 64 | t))) "F|ace used|
|00002020| 20 66 6f 72 20 69 6e 61 | 63 74 69 76 65 20 77 69 | for ina|ctive wi|
|00002030| 64 67 65 74 73 2e 22 20 | 3a 67 72 6f 75 70 20 77 |dgets." |:group w|
|00002040| 69 64 67 65 74 2d 66 61 | 63 65 73 5d 20 36 29 0a |idget-fa|ces] 6).|
|00002050| 23 40 39 36 20 41 63 74 | 69 76 61 74 65 20 6f 72 |#@96 Act|ivate or|
|00002060| 20 64 65 61 63 74 69 76 | 61 74 65 20 45 58 54 45 | deactiv|ate EXTE|
|00002070| 4e 54 27 73 20 77 69 64 | 67 65 74 20 28 62 75 74 |NT's wid|get (but|
|00002080| 74 6f 6e 20 6f 72 20 66 | 69 65 6c 64 29 2e 0a 53 |ton or f|ield)..S|
|00002090| 75 69 74 61 62 6c 65 20 | 66 6f 72 20 75 73 65 20 |uitable |for use |
|000020a0| 77 69 74 68 20 60 6d 61 | 70 2d 65 78 74 65 6e 74 |with `ma|p-extent|
|000020b0| 73 27 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |s'...(de|falias '|
|000020c0| 77 69 64 67 65 74 2d 61 | 63 74 69 76 61 74 69 6f |widget-a|ctivatio|
|000020d0| 6e 2d 77 69 64 67 65 74 | 2d 6d 61 70 70 65 72 20 |n-widget|-mapper |
|000020e0| 23 5b 28 65 78 74 65 6e | 74 20 61 63 74 69 6f 6e |#[(exten|t action|
|000020f0| 29 20 22 08 a7 ab 85 08 | c1 6b aa 83 08 c1 61 ab |) ".....|.k....a.|
|00002100| a3 c2 0b c4 c5 0b c4 c6 | 23 53 23 88 c5 0b c4 5c |........|#S#....\|
|00002110| 22 c7 55 ab d2 c8 0b c5 | 0b c9 5c 22 5c 22 88 c2 |".U.....|..\"\"..|
|00002120| 0b c9 c6 23 88 aa c2 08 | a7 ab 85 08 ca 6b aa 83 |...#....|.....k..|
|00002130| 08 ca 61 ab ae c2 0b c4 | c5 0b c4 c7 23 54 23 88 |..a.....|....#T#.|
|00002140| c5 0b c9 5c 22 ac a3 c2 | 0b c9 cb c5 0b cb 5c 22 |...\"...|......\"|
|00002150| cc c5 0b cc 5c 22 cd c5 | 0b cd 5c 22 af 06 23 88 |....\"..|..\"..#.|
|00002160| c8 0b ce 5c 22 88 aa 86 | cf d0 08 d1 23 88 c6 87 |...\"...|....#...|
|00002170| 22 20 5b 61 63 74 69 6f | 6e 20 3a 61 63 74 69 76 |" [actio|n :activ|
|00002180| 61 74 65 20 73 65 74 2d | 65 78 74 65 6e 74 2d 70 |ate set-|extent-p|
|00002190| 72 6f 70 65 72 74 79 20 | 65 78 74 65 6e 74 20 3a |roperty |extent :|
|000021a0| 69 6e 61 63 74 69 76 65 | 2d 63 6f 75 6e 74 20 65 |inactive|-count e|
|000021b0| 78 74 65 6e 74 2d 70 72 | 6f 70 65 72 74 79 20 6e |xtent-pr|operty n|
|000021c0| 69 6c 20 30 20 73 65 74 | 2d 65 78 74 65 6e 74 2d |il 0 set|-extent-|
|000021d0| 70 72 6f 70 65 72 74 69 | 65 73 20 3a 69 6e 61 63 |properti|es :inac|
|000021e0| 74 69 76 65 2d 70 6c 69 | 73 74 20 3a 64 65 61 63 |tive-pli|st :deac|
|000021f0| 74 69 76 61 74 65 20 6d | 6f 75 73 65 2d 66 61 63 |tivate m|ouse-fac|
|00002200| 65 20 68 65 6c 70 2d 65 | 63 68 6f 20 6b 65 79 6d |e help-e|cho keym|
|00002210| 61 70 20 28 6d 6f 75 73 | 65 2d 66 61 63 65 20 6e |ap (mous|e-face n|
|00002220| 69 6c 20 68 65 6c 70 2d | 65 63 68 6f 20 6e 69 6c |il help-|echo nil|
|00002230| 20 6b 65 79 6d 61 70 20 | 6e 69 6c 29 20 65 72 72 | keymap |nil) err|
|00002240| 6f 72 20 22 65 63 61 73 | 65 20 66 61 69 6c 65 64 |or "ecas|e failed|
|00002250| 3a 20 25 73 2c 20 25 73 | 22 20 28 3a 61 63 74 69 |: %s, %s|" (:acti|
|00002260| 76 61 74 65 20 3a 64 65 | 61 63 74 69 76 61 74 65 |vate :de|activate|
|00002270| 29 5d 20 31 31 20 28 23 | 24 20 2e 20 38 32 37 37 |)] 11 (#|$ . 8277|
|00002280| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 77 |)]).(def|alias 'w|
|00002290| 69 64 67 65 74 2d 61 63 | 74 69 76 61 74 69 6f 6e |idget-ac|tivation|
|000022a0| 2d 67 6c 79 70 68 2d 6d | 61 70 70 65 72 20 23 5b |-glyph-m|apper #[|
|000022b0| 28 65 78 74 65 6e 74 20 | 61 63 74 69 6f 6e 29 20 |(extent |action) |
|000022c0| 22 08 c1 61 ad 81 c2 89 | 1b ab 8d c4 0d c6 c7 0d |"..a....|........|
|000022d0| c6 c8 23 53 23 88 aa 8b | c4 0d c6 c7 0d c6 c9 23 |..#S#...|.......#|
|000022e0| 54 23 88 0b ab 88 c7 0d | c6 5c 22 c9 55 ac 8b 0b |T#......|.\".U...|
|000022f0| ac c5 c7 0d c6 5c 22 c9 | 55 ac bd c7 0d ca 5c 22 |.....\".|U.....\"|
|00002300| 1e 5c 6e cb 0e 5c 6e cc | 5c 22 1e 0d cb 0e 5c 6e |.\n..\n.|\"....\n|
|00002310| ce 5c 22 1e 0f 0b ab 84 | 0e 0d aa 82 0e 0f 1e 10 |.\".....|........|
|00002320| 0e 0d ab 99 0e 0f ab 95 | 0e 0d 0e 0f 61 ac 8e d1 |........|....a...|
|00002330| 0d 21 0e 10 61 ac 86 d2 | 0d 0e 10 5c 22 88 2c 29 |.!..a...|...\".,)|
|00002340| c8 87 22 20 5b 61 63 74 | 69 6f 6e 20 3a 61 63 74 |.." [act|ion :act|
|00002350| 69 76 61 74 65 20 74 20 | 61 63 74 69 76 61 74 65 |ivate t |activate|
|00002360| 2d 70 20 73 65 74 2d 65 | 78 74 65 6e 74 2d 70 72 |-p set-e|xtent-pr|
|00002370| 6f 70 65 72 74 79 20 65 | 78 74 65 6e 74 20 3a 69 |operty e|xtent :i|
|00002380| 6e 61 63 74 69 76 65 2d | 63 6f 75 6e 74 20 65 78 |nactive-|count ex|
|00002390| 74 65 6e 74 2d 70 72 6f | 70 65 72 74 79 20 6e 69 |tent-pro|perty ni|
|000023a0| 6c 20 30 20 67 6c 79 70 | 68 2d 77 69 64 67 65 74 |l 0 glyp|h-widget|
|000023b0| 20 77 69 64 67 65 74 2d | 67 65 74 20 3a 67 6c 79 | widget-|get :gly|
|000023c0| 70 68 2d 75 70 20 75 70 | 2d 67 6c 79 70 68 20 3a |ph-up up|-glyph :|
|000023d0| 67 6c 79 70 68 2d 69 6e | 61 63 74 69 76 65 20 69 |glyph-in|active i|
|000023e0| 6e 61 63 74 69 76 65 2d | 67 6c 79 70 68 20 6e 65 |nactive-|glyph ne|
|000023f0| 77 2d 67 6c 79 70 68 20 | 65 78 74 65 6e 74 2d 65 |w-glyph |extent-e|
|00002400| 6e 64 2d 67 6c 79 70 68 | 20 73 65 74 2d 65 78 74 |nd-glyph| set-ext|
|00002410| 65 6e 74 2d 65 6e 64 2d | 67 6c 79 70 68 5d 20 38 |ent-end-|glyph] 8|
|00002420| 5d 29 0a 23 40 34 36 20 | 4d 61 6b 65 20 57 49 44 |]).#@46 |Make WID|
|00002430| 47 45 54 20 69 6e 61 63 | 74 69 76 65 20 66 6f 72 |GET inac|tive for|
|00002440| 20 75 73 65 72 20 6d 6f | 64 69 66 69 63 61 74 69 | user mo|dificati|
|00002450| 6f 6e 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ons...(d|efalias |
|00002460| 27 77 69 64 67 65 74 2d | 73 70 65 63 69 66 79 2d |'widget-|specify-|
|00002470| 69 6e 61 63 74 69 76 65 | 20 23 5b 28 77 69 64 67 |inactive| #[(widg|
|00002480| 65 74 20 66 72 6f 6d 20 | 74 6f 29 20 22 c0 09 c2 |et from |to) "...|
|00002490| 5c 22 3f ad a9 c3 0c 0d | 5c 22 1e 06 c7 0e 06 c8 |\"?.....|\"......|
|000024a0| 5c 22 88 c9 09 c2 0e 06 | 23 88 29 ca cb cc 0c 0d |\"......|#.).....|
|000024b0| cd cc ce 26 07 88 ca cf | cc 0c 0d cd cc d0 26 07 |...&....|......&.|
|000024c0| 87 22 20 5b 77 69 64 67 | 65 74 2d 67 65 74 20 77 |." [widg|et-get w|
|000024d0| 69 64 67 65 74 20 3a 69 | 6e 61 63 74 69 76 65 20 |idget :i|nactive |
|000024e0| 6d 61 6b 65 2d 65 78 74 | 65 6e 74 20 66 72 6f 6d |make-ext|ent from|
|000024f0| 20 74 6f 20 65 78 74 65 | 6e 74 20 73 65 74 2d 65 | to exte|nt set-e|
|00002500| 78 74 65 6e 74 2d 70 72 | 6f 70 65 72 74 69 65 73 |xtent-pr|operties|
|00002510| 20 28 73 74 61 72 74 2d | 6f 70 65 6e 20 74 20 66 | (start-|open t f|
|00002520| 61 63 65 20 77 69 64 67 | 65 74 2d 69 6e 61 63 74 |ace widg|et-inact|
|00002530| 69 76 65 2d 66 61 63 65 | 20 64 65 74 61 63 68 61 |ive-face| detacha|
|00002540| 62 6c 65 20 74 20 70 72 | 69 6f 72 69 74 79 20 32 |ble t pr|iority 2|
|00002550| 30 30 31 20 77 69 64 67 | 65 74 2d 69 6e 61 63 74 |001 widg|et-inact|
|00002560| 69 76 65 20 74 29 20 77 | 69 64 67 65 74 2d 70 75 |ive t) w|idget-pu|
|00002570| 74 20 6d 61 70 2d 65 78 | 74 65 6e 74 73 20 77 69 |t map-ex|tents wi|
|00002580| 64 67 65 74 2d 61 63 74 | 69 76 61 74 69 6f 6e 2d |dget-act|ivation-|
|00002590| 77 69 64 67 65 74 2d 6d | 61 70 70 65 72 20 6e 69 |widget-m|apper ni|
|000025a0| 6c 20 3a 64 65 61 63 74 | 69 76 61 74 65 20 62 75 |l :deact|ivate bu|
|000025b0| 74 74 6f 6e 2d 6f 72 2d | 66 69 65 6c 64 20 77 69 |tton-or-|field wi|
|000025c0| 64 67 65 74 2d 61 63 74 | 69 76 61 74 69 6f 6e 2d |dget-act|ivation-|
|000025d0| 67 6c 79 70 68 2d 6d 61 | 70 70 65 72 20 67 6c 79 |glyph-ma|pper gly|
|000025e0| 70 68 2d 77 69 64 67 65 | 74 5d 20 38 20 28 23 24 |ph-widge|t] 8 (#$|
|000025f0| 20 2e 20 39 32 35 36 29 | 5d 29 0a 23 40 34 34 20 | . 9256)|]).#@44 |
|00002600| 4d 61 6b 65 20 57 49 44 | 47 45 54 20 61 63 74 69 |Make WID|GET acti|
|00002610| 76 65 20 66 6f 72 20 75 | 73 65 72 20 6d 6f 64 69 |ve for u|ser modi|
|00002620| 66 69 63 61 74 69 6f 6e | 73 2e 1f 0a 28 64 65 66 |fication|s...(def|
|00002630| 61 6c 69 61 73 20 27 77 | 69 64 67 65 74 2d 73 70 |alias 'w|idget-sp|
|00002640| 65 63 69 66 79 2d 61 63 | 74 69 76 65 20 23 5b 28 |ecify-ac|tive #[(|
|00002650| 77 69 64 67 65 74 29 20 | 22 c0 09 c2 5c 22 89 1b |widget) |"...\"..|
|00002660| ad 9f c4 c5 0b c6 89 c7 | c6 c8 26 07 88 c4 c9 0b |........|..&.....|
|00002670| c6 89 c7 c6 ca 26 07 88 | cb 0b 21 88 cc 09 c2 c6 |.....&..|..!.....|
|00002680| 23 29 87 22 20 5b 77 69 | 64 67 65 74 2d 67 65 74 |#)." [wi|dget-get|
|00002690| 20 77 69 64 67 65 74 20 | 3a 69 6e 61 63 74 69 76 | widget |:inactiv|
|000026a0| 65 20 69 6e 61 63 74 69 | 76 65 20 6d 61 70 2d 65 |e inacti|ve map-e|
|000026b0| 78 74 65 6e 74 73 20 77 | 69 64 67 65 74 2d 61 63 |xtents w|idget-ac|
|000026c0| 74 69 76 61 74 69 6f 6e | 2d 77 69 64 67 65 74 2d |tivation|-widget-|
|000026d0| 6d 61 70 70 65 72 20 6e | 69 6c 20 3a 61 63 74 69 |mapper n|il :acti|
|000026e0| 76 61 74 65 20 62 75 74 | 74 6f 6e 2d 6f 72 2d 66 |vate but|ton-or-f|
|000026f0| 69 65 6c 64 20 77 69 64 | 67 65 74 2d 61 63 74 69 |ield wid|get-acti|
|00002700| 76 61 74 69 6f 6e 2d 67 | 6c 79 70 68 2d 6d 61 70 |vation-g|lyph-map|
|00002710| 70 65 72 20 65 6e 64 2d | 67 6c 79 70 68 20 64 65 |per end-|glyph de|
|00002720| 6c 65 74 65 2d 65 78 74 | 65 6e 74 20 77 69 64 67 |lete-ext|ent widg|
|00002730| 65 74 2d 70 75 74 5d 20 | 39 20 28 23 24 20 2e 20 |et-put] |9 (#$ . |
|00002740| 39 37 32 38 29 5d 29 0a | 23 40 33 38 20 52 65 74 |9728)]).|#@38 Ret|
|00002750| 75 72 6e 20 74 68 65 20 | 74 79 70 65 20 6f 66 20 |urn the |type of |
|00002760| 57 49 44 47 45 54 2c 20 | 61 20 73 79 6d 62 6f 6c |WIDGET, |a symbol|
|00002770| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 69 |...(defa|lias 'wi|
|00002780| 64 67 65 74 2d 74 79 70 | 65 20 23 5b 28 77 69 64 |dget-typ|e #[(wid|
|00002790| 67 65 74 29 20 22 08 40 | 87 22 20 5b 77 69 64 67 |get) ".@|." [widg|
|000027a0| 65 74 5d 20 31 20 28 23 | 24 20 2e 20 31 30 30 36 |et] 1 (#|$ . 1006|
|000027b0| 31 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |1)]).(by|te-code |
|000027c0| 22 c0 c1 4e c2 73 ac 85 | c3 c4 c0 5c 22 88 c5 c0 |"..N.s..|...\"...|
|000027d0| c1 c6 23 88 c7 c8 21 ab | 84 0e 09 ab 84 c8 ca 4d |..#...!.|.......M|
|000027e0| 88 c7 cb 21 ab 84 0e 09 | ab 84 cb cc 4d 88 c0 87 |...!....|....M...|
|000027f0| 22 20 5b 77 69 64 67 65 | 74 2d 74 79 70 65 20 62 |" [widge|t-type b|
|00002800| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|00002810| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|00002820| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|00002830| 72 72 6f 72 20 22 25 73 | 20 61 6c 72 65 61 64 79 |rror "%s| already|
|00002840| 20 68 61 73 20 61 20 62 | 79 74 65 2d 6f 70 74 69 | has a b|yte-opti|
|00002850| 6d 69 7a 65 72 2c 20 63 | 61 6e 27 74 20 6d 61 6b |mizer, c|an't mak|
|00002860| 65 20 69 74 20 69 6e 6c | 69 6e 65 22 20 70 75 74 |e it inl|ine" put|
|00002870| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00002880| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 20 66 62 6f 75 |line-exp|and fbou|
|00002890| 6e 64 70 20 77 69 64 67 | 65 74 2d 70 75 74 20 77 |ndp widg|et-put w|
|000028a0| 69 64 67 65 74 2d 73 68 | 61 64 6f 77 2d 73 75 62 |idget-sh|adow-sub|
|000028b0| 72 73 20 23 5b 28 77 69 | 64 67 65 74 20 70 72 6f |rs #[(wi|dget pro|
|000028c0| 70 65 72 74 79 20 76 61 | 6c 75 65 29 20 22 08 c1 |perty va|lue) "..|
|000028d0| 08 41 5c 6e 0b 23 a1 87 | 22 20 5b 77 69 64 67 65 |.A\n.#..|" [widge|
|000028e0| 74 20 70 6c 69 73 74 2d | 70 75 74 20 70 72 6f 70 |t plist-|put prop|
|000028f0| 65 72 74 79 20 76 61 6c | 75 65 5d 20 35 20 22 49 |erty val|ue] 5 "I|
|00002900| 6e 20 57 49 44 47 45 54 | 20 73 65 74 20 50 52 4f |n WIDGET| set PRO|
|00002910| 50 45 52 54 59 20 74 6f | 20 56 41 4c 55 45 2e 5c |PERTY to| VALUE.\|
|00002920| 6e 54 68 65 20 76 61 6c | 75 65 20 63 61 6e 20 6c |nThe val|ue can l|
|00002930| 61 74 65 72 20 62 65 20 | 72 65 74 72 69 76 65 64 |ater be |retrived|
|00002940| 20 77 69 74 68 20 60 77 | 69 64 67 65 74 2d 67 65 | with `w|idget-ge|
|00002950| 74 27 2e 22 5d 20 77 69 | 64 67 65 74 2d 67 65 74 |t'."] wi|dget-get|
|00002960| 20 23 5b 28 77 69 64 67 | 65 74 20 70 72 6f 70 65 | #[(widg|et prope|
|00002970| 72 74 79 29 20 22 c0 c1 | 89 1a 1b 1c 0c ab a7 c5 |rty) "..|........|
|00002980| 0e 06 41 0e 07 5c 22 89 | 12 ab 89 5c 6e 41 40 13 |..A..\".|...\nA@.|
|00002990| c1 89 14 aa 6a 0e 06 40 | 89 12 ab 87 5c 6e c8 4e |....j..@|....\n.N|
|000029a0| 16 06 aa 5b c1 89 14 ac | 59 0b 2b 87 22 20 5b 74 |...[....|Y.+." [t|
|000029b0| 20 6e 69 6c 20 74 6d 70 | 20 76 61 6c 75 65 20 6d | nil tmp| value m|
|000029c0| 69 73 73 69 6e 67 20 77 | 69 64 67 65 74 2d 70 6c |issing w|idget-pl|
|000029d0| 69 73 74 2d 6d 65 6d 62 | 65 72 20 77 69 64 67 65 |ist-memb|er widge|
|000029e0| 74 20 70 72 6f 70 65 72 | 74 79 20 77 69 64 67 65 |t proper|ty widge|
|000029f0| 74 2d 74 79 70 65 5d 20 | 34 20 22 49 6e 20 57 49 |t-type] |4 "In WI|
|00002a00| 44 47 45 54 2c 20 67 65 | 74 20 74 68 65 20 76 61 |DGET, ge|t the va|
|00002a10| 6c 75 65 20 6f 66 20 50 | 52 4f 50 45 52 54 59 2e |lue of P|ROPERTY.|
|00002a20| 5c 6e 54 68 65 20 76 61 | 6c 75 65 20 63 6f 75 6c |\nThe va|lue coul|
|00002a30| 64 20 65 69 74 68 65 72 | 20 62 65 20 73 70 65 63 |d either| be spec|
|00002a40| 69 66 69 65 64 20 77 68 | 65 6e 20 74 68 65 20 77 |ified wh|en the w|
|00002a50| 69 64 67 65 74 20 77 61 | 73 20 63 72 65 61 74 65 |idget wa|s create|
|00002a60| 64 2c 20 6f 72 5c 6e 6c | 61 74 65 72 20 77 69 74 |d, or\nl|ater wit|
|00002a70| 68 20 60 77 69 64 67 65 | 74 2d 70 75 74 27 2e 22 |h `widge|t-put'."|
|00002a80| 5d 5d 20 34 29 0a 23 40 | 31 31 39 20 49 6e 20 57 |]] 4).#@|119 In W|
|00002a90| 49 44 47 45 54 2c 20 67 | 65 74 20 74 68 65 20 76 |IDGET, g|et the v|
|00002aa0| 61 6c 75 65 20 6f 66 20 | 50 52 4f 50 45 52 54 59 |alue of |PROPERTY|
|00002ab0| 2e 0a 49 66 20 74 68 65 | 20 76 61 6c 75 65 20 69 |..If the| value i|
|00002ac0| 73 20 61 20 73 79 6d 62 | 6f 6c 2c 20 72 65 74 75 |s a symb|ol, retu|
|00002ad0| 72 6e 20 69 74 73 20 62 | 69 6e 64 69 6e 67 2e 0a |rn its b|inding..|
|00002ae0| 4f 74 68 65 72 77 69 73 | 65 2c 20 6a 75 73 74 20 |Otherwis|e, just |
|00002af0| 72 65 74 75 72 6e 20 74 | 68 65 20 76 61 6c 75 65 |return t|he value|
|00002b00| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 69 |...(defa|lias 'wi|
|00002b10| 64 67 65 74 2d 67 65 74 | 2d 69 6e 64 69 72 65 63 |dget-get|-indirec|
|00002b20| 74 20 23 5b 28 77 69 64 | 67 65 74 20 70 72 6f 70 |t #[(wid|get prop|
|00002b30| 65 72 74 79 29 20 22 c0 | 09 5c 6e 5c 22 89 1b 39 |erty) ".|.\n\"..9|
|00002b40| ab 84 0b 4a aa 81 0b 29 | 87 22 20 5b 77 69 64 67 |...J...)|." [widg|
|00002b50| 65 74 2d 67 65 74 20 77 | 69 64 67 65 74 20 70 72 |et-get w|idget pr|
|00002b60| 6f 70 65 72 74 79 20 76 | 61 6c 75 65 5d 20 34 20 |operty v|alue] 4 |
|00002b70| 28 23 24 20 2e 20 31 30 | 38 39 32 29 5d 29 0a 23 |(#$ . 10|892)]).#|
|00002b80| 40 35 39 20 4e 6f 6e 2d | 6e 69 6c 20 69 66 66 20 |@59 Non-|nil iff |
|00002b90| 74 68 65 72 65 20 69 73 | 20 61 20 64 65 66 69 6e |there is| a defin|
|00002ba0| 69 74 69 6f 6e 20 69 6e | 20 57 49 44 47 45 54 20 |ition in| WIDGET |
|00002bb0| 66 6f 72 20 50 52 4f 50 | 45 52 54 59 2e 1f 0a 28 |for PROP|ERTY...(|
|00002bc0| 64 65 66 61 6c 69 61 73 | 20 27 77 69 64 67 65 74 |defalias| 'widget|
|00002bd0| 2d 6d 65 6d 62 65 72 20 | 23 5b 28 77 69 64 67 65 |-member |#[(widge|
|00002be0| 74 20 70 72 6f 70 65 72 | 74 79 29 20 22 c0 09 41 |t proper|ty) "..A|
|00002bf0| 5c 6e 5c 22 ab 82 c3 87 | 09 40 ab 88 c4 09 40 c5 |\n\"....|.@....@.|
|00002c00| 4e 5c 6e 5c 22 87 c6 87 | 22 20 5b 77 69 64 67 65 |N\n\"...|" [widge|
|00002c10| 74 2d 70 6c 69 73 74 2d | 6d 65 6d 62 65 72 20 77 |t-plist-|member w|
|00002c20| 69 64 67 65 74 20 70 72 | 6f 70 65 72 74 79 20 74 |idget pr|operty t|
|00002c30| 20 77 69 64 67 65 74 2d | 6d 65 6d 62 65 72 20 77 | widget-|member w|
|00002c40| 69 64 67 65 74 2d 74 79 | 70 65 20 6e 69 6c 5d 20 |idget-ty|pe nil] |
|00002c50| 33 20 28 23 24 20 2e 20 | 31 31 31 34 30 29 5d 29 |3 (#$ . |11140)])|
|00002c60| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00002c70| ab 83 5c 6e ab 84 c1 c3 | 4d 88 c0 87 22 20 5b 66 |..\n....|M..." [f|
|00002c80| 62 6f 75 6e 64 70 20 77 | 69 64 67 65 74 2d 61 70 |boundp w|idget-ap|
|00002c90| 70 6c 79 20 77 69 64 67 | 65 74 2d 73 68 61 64 6f |ply widg|et-shado|
|00002ca0| 77 2d 73 75 62 72 73 20 | 23 5b 28 77 69 64 67 65 |w-subrs |#[(widge|
|00002cb0| 74 20 70 72 6f 70 65 72 | 74 79 20 26 72 65 73 74 |t proper|ty &rest|
|00002cc0| 20 61 72 67 73 29 20 22 | c0 c1 5c 6e 0b 5c 22 5c | args) "|..\n.\"\|
|00002cd0| 6e 0c 23 87 22 20 5b 61 | 70 70 6c 79 20 77 69 64 |n.#." [a|pply wid|
|00002ce0| 67 65 74 2d 67 65 74 20 | 77 69 64 67 65 74 20 70 |get-get |widget p|
|00002cf0| 72 6f 70 65 72 74 79 20 | 61 72 67 73 5d 20 34 20 |roperty |args] 4 |
|00002d00| 22 41 70 70 6c 79 20 74 | 68 65 20 76 61 6c 75 65 |"Apply t|he value|
|00002d10| 20 6f 66 20 57 49 44 47 | 45 54 27 73 20 50 52 4f | of WIDG|ET's PRO|
|00002d20| 50 45 52 54 59 20 74 6f | 20 74 68 65 20 77 69 64 |PERTY to| the wid|
|00002d30| 67 65 74 20 69 74 73 65 | 6c 66 2e 5c 6e 41 52 47 |get itse|lf.\nARG|
|00002d40| 53 20 61 72 65 20 70 61 | 73 73 65 64 20 61 73 20 |S are pa|ssed as |
|00002d50| 65 78 74 72 61 20 61 72 | 67 75 6d 65 6e 74 73 20 |extra ar|guments |
|00002d60| 74 6f 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 2e |to the f|unction.|
|00002d70| 22 5d 5d 20 32 29 0a 23 | 40 33 38 20 45 78 74 72 |"]] 2).#|@38 Extr|
|00002d80| 61 63 74 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |act the |current |
|00002d90| 76 61 6c 75 65 20 6f 66 | 20 57 49 44 47 45 54 2e |value of| WIDGET.|
|00002da0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 77 69 64 |..(defal|ias 'wid|
|00002db0| 67 65 74 2d 76 61 6c 75 | 65 20 23 5b 28 77 69 64 |get-valu|e #[(wid|
|00002dc0| 67 65 74 29 20 22 c0 09 | c2 c0 09 c3 5c 22 23 87 |get) "..|....\"#.|
|00002dd0| 22 20 5b 77 69 64 67 65 | 74 2d 61 70 70 6c 79 20 |" [widge|t-apply |
|00002de0| 77 69 64 67 65 74 20 3a | 76 61 6c 75 65 2d 74 6f |widget :|value-to|
|00002df0| 2d 65 78 74 65 72 6e 61 | 6c 20 3a 76 61 6c 75 65 |-externa|l :value|
|00002e00| 2d 67 65 74 5d 20 36 20 | 28 23 24 20 2e 20 31 31 |-get] 6 |(#$ . 11|
|00002e10| 36 34 34 29 5d 29 0a 23 | 40 34 33 20 53 65 74 20 |644)]).#|@43 Set |
|00002e20| 74 68 65 20 63 75 72 72 | 65 6e 74 20 76 61 6c 75 |the curr|ent valu|
|00002e30| 65 20 6f 66 20 57 49 44 | 47 45 54 20 74 6f 20 56 |e of WID|GET to V|
|00002e40| 41 4c 55 45 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ALUE...(|defalias|
|00002e50| 20 27 77 69 64 67 65 74 | 2d 76 61 6c 75 65 2d 73 | 'widget|-value-s|
|00002e60| 65 74 20 23 5b 28 77 69 | 64 67 65 74 20 76 61 6c |et #[(wi|dget val|
|00002e70| 75 65 29 20 22 c0 09 c2 | c0 09 c3 0c 23 23 87 22 |ue) "...|....##."|
|00002e80| 20 5b 77 69 64 67 65 74 | 2d 61 70 70 6c 79 20 77 | [widget|-apply w|
|00002e90| 69 64 67 65 74 20 3a 76 | 61 6c 75 65 2d 73 65 74 |idget :v|alue-set|
|00002ea0| 20 3a 76 61 6c 75 65 2d | 74 6f 2d 69 6e 74 65 72 | :value-|to-inter|
|00002eb0| 6e 61 6c 20 76 61 6c 75 | 65 5d 20 37 20 28 23 24 |nal valu|e] 7 (#$|
|00002ec0| 20 2e 20 31 31 38 30 34 | 29 5d 29 0a 28 64 65 66 | . 11804|)]).(def|
|00002ed0| 61 6c 69 61 73 20 27 77 | 69 64 67 65 74 2d 6d 61 |alias 'w|idget-ma|
|00002ee0| 74 63 68 2d 69 6e 6c 69 | 6e 65 20 23 5b 28 77 69 |tch-inli|ne #[(wi|
|00002ef0| 64 67 65 74 20 76 61 6c | 73 29 20 22 c0 09 c2 5c |dget val|s) "...\|
|00002f00| 22 ab 86 c3 09 c4 0d 23 | 87 0d ab 8f c3 09 c6 0d |"......#|........|
|00002f10| 40 23 ab 87 0d 40 43 0d | 41 42 87 c7 87 22 20 5b |@#...@C.|AB..." [|
|00002f20| 77 69 64 67 65 74 2d 67 | 65 74 20 77 69 64 67 65 |widget-g|et widge|
|00002f30| 74 20 3a 69 6e 6c 69 6e | 65 20 77 69 64 67 65 74 |t :inlin|e widget|
|00002f40| 2d 61 70 70 6c 79 20 3a | 6d 61 74 63 68 2d 69 6e |-apply :|match-in|
|00002f50| 6c 69 6e 65 20 76 61 6c | 73 20 3a 6d 61 74 63 68 |line val|s :match|
|00002f60| 20 6e 69 6c 5d 20 34 5d | 29 0a 23 40 34 37 20 41 | nil] 4]|).#@47 A|
|00002f70| 70 70 6c 79 20 3a 61 63 | 74 69 6f 6e 20 69 6e 20 |pply :ac|tion in |
|00002f80| 57 49 44 47 45 54 20 69 | 6e 20 72 65 73 70 6f 6e |WIDGET i|n respon|
|00002f90| 73 65 20 74 6f 20 45 56 | 45 4e 54 2e 1f 0a 28 64 |se to EV|ENT...(d|
|00002fa0| 65 66 61 6c 69 61 73 20 | 27 77 69 64 67 65 74 2d |efalias |'widget-|
|00002fb0| 61 70 70 6c 79 2d 61 63 | 74 69 6f 6e 20 23 5b 28 |apply-ac|tion #[(|
|00002fc0| 77 69 64 67 65 74 20 26 | 6f 70 74 69 6f 6e 61 6c |widget &|optional|
|00002fd0| 20 65 76 65 6e 74 29 20 | 22 c0 09 c2 5c 22 ab 86 | event) |"...\"..|
|00002fe0| c0 09 c3 0c 23 87 c5 c6 | 21 87 22 20 5b 77 69 64 |....#...|!." [wid|
|00002ff0| 67 65 74 2d 61 70 70 6c | 79 20 77 69 64 67 65 74 |get-appl|y widget|
|00003000| 20 3a 61 63 74 69 76 65 | 20 3a 61 63 74 69 6f 6e | :active| :action|
|00003010| 20 65 76 65 6e 74 20 65 | 72 72 6f 72 20 22 41 74 | event e|rror "At|
|00003020| 74 65 6d 70 74 20 74 6f | 20 70 65 72 66 6f 72 6d |tempt to| perform|
|00003030| 20 61 63 74 69 6f 6e 20 | 6f 6e 20 69 6e 61 63 74 | action |on inact|
|00003040| 69 76 65 20 77 69 64 67 | 65 74 22 5d 20 34 20 28 |ive widg|et"] 4 (|
|00003050| 23 24 20 2e 20 31 32 31 | 34 33 29 5d 29 0a 23 40 |#$ . 121|43)]).#@|
|00003060| 31 32 30 20 50 72 6f 6d | 70 74 20 66 6f 72 20 61 |120 Prom|pt for a|
|00003070| 20 76 61 6c 75 65 20 6d | 61 74 63 68 69 6e 67 20 | value m|atching |
|00003080| 57 49 44 47 45 54 2c 20 | 75 73 69 6e 67 20 50 52 |WIDGET, |using PR|
|00003090| 4f 4d 50 54 2e 0a 54 68 | 65 20 63 75 72 72 65 6e |OMPT..Th|e curren|
|000030a0| 74 20 76 61 6c 75 65 20 | 69 73 20 61 73 73 75 6d |t value |is assum|
|000030b0| 65 64 20 74 6f 20 62 65 | 20 56 41 4c 55 45 2c 20 |ed to be| VALUE, |
|000030c0| 75 6e 6c 65 73 73 20 55 | 4e 42 4f 55 4e 44 20 69 |unless U|NBOUND i|
|000030d0| 73 20 6e 6f 6e 2d 6e 69 | 6c 2e 1f 0a 28 64 65 66 |s non-ni|l...(def|
|000030e0| 61 6c 69 61 73 20 27 77 | 69 64 67 65 74 2d 70 72 |alias 'w|idget-pr|
|000030f0| 6f 6d 70 74 2d 76 61 6c | 75 65 20 23 5b 28 77 69 |ompt-val|ue #[(wi|
|00003100| 64 67 65 74 20 70 72 6f | 6d 70 74 20 26 6f 70 74 |dget pro|mpt &opt|
|00003110| 69 6f 6e 61 6c 20 76 61 | 6c 75 65 20 75 6e 62 6f |ional va|lue unbo|
|00003120| 75 6e 64 29 20 22 08 3c | ac 83 08 43 10 c1 c2 08 |und) ".<|...C....|
|00003130| 89 18 40 29 0b 23 13 c4 | 08 21 10 c5 08 c6 0b 0e |..@).#..|.!......|
|00003140| 07 0e 08 25 1e 09 c5 08 | ca 0e 09 23 ac 86 cb cc |...%....|...#....|
|00003150| 08 40 5c 22 88 0e 09 29 | 87 22 20 5b 77 69 64 67 |.@\"...)|." [widg|
|00003160| 65 74 20 66 6f 72 6d 61 | 74 20 22 5b 25 73 5d 20 |et forma|t "[%s] |
|00003170| 25 73 22 20 70 72 6f 6d | 70 74 20 77 69 64 67 65 |%s" prom|pt widge|
|00003180| 74 2d 63 6f 6e 76 65 72 | 74 20 77 69 64 67 65 74 |t-conver|t widget|
|00003190| 2d 61 70 70 6c 79 20 3a | 70 72 6f 6d 70 74 2d 76 |-apply :|prompt-v|
|000031a0| 61 6c 75 65 20 76 61 6c | 75 65 20 75 6e 62 6f 75 |alue val|ue unbou|
|000031b0| 6e 64 20 61 6e 73 77 65 | 72 20 3a 6d 61 74 63 68 |nd answe|r :match|
|000031c0| 20 65 72 72 6f 72 20 22 | 56 61 6c 75 65 20 64 6f | error "|Value do|
|000031d0| 65 73 20 6e 6f 74 20 6d | 61 74 63 68 20 25 53 20 |es not m|atch %S |
|000031e0| 74 79 70 65 2e 22 5d 20 | 37 20 28 23 24 20 2e 20 |type."] |7 (#$ . |
|000031f0| 31 32 33 38 38 29 5d 29 | 0a 23 40 31 31 30 20 47 |12388)])|.#@110 G|
|00003200| 65 74 20 74 68 65 20 69 | 74 65 6d 20 57 49 44 47 |et the i|tem WIDG|
|00003210| 45 54 20 69 73 20 61 73 | 73 75 6d 65 64 20 74 6f |ET is as|sumed to|
|00003220| 20 74 6f 67 67 6c 65 2e | 0a 54 68 69 73 20 69 73 | toggle.|.This is|
|00003230| 20 6f 6e 6c 79 20 6d 65 | 61 6e 69 6e 67 66 75 6c | only me|aningful|
|00003240| 20 66 6f 72 20 72 61 64 | 69 6f 20 62 75 74 74 6f | for rad|io butto|
|00003250| 6e 73 20 6f 72 20 63 68 | 65 63 6b 62 6f 78 65 73 |ns or ch|eckboxes|
|00003260| 20 69 6e 20 61 20 6c 69 | 73 74 2e 1f 0a 28 64 65 | in a li|st...(de|
|00003270| 66 61 6c 69 61 73 20 27 | 77 69 64 67 65 74 2d 67 |falias '|widget-g|
|00003280| 65 74 2d 73 69 62 6c 69 | 6e 67 20 23 5b 28 77 69 |et-sibli|ng #[(wi|
|00003290| 64 67 65 74 29 20 22 c0 | 09 c2 5c 22 1b c0 0b c4 |dget) ".|..\"....|
|000032a0| 5c 22 1d c6 1e 07 c7 c8 | 8d 2b 87 22 20 5b 77 69 |\"......|.+." [wi|
|000032b0| 64 67 65 74 2d 67 65 74 | 20 77 69 64 67 65 74 20 |dget-get| widget |
|000032c0| 3a 70 61 72 65 6e 74 20 | 70 61 72 65 6e 74 20 3a |:parent |parent :|
|000032d0| 63 68 69 6c 64 72 65 6e | 20 63 68 69 6c 64 72 65 |children| childre|
|000032e0| 6e 20 6e 69 6c 20 63 68 | 69 6c 64 20 28 62 79 74 |n nil ch|ild (byt|
|000032f0| 65 2d 63 6f 64 65 20 22 | 08 ab 95 08 40 11 08 41 |e-code "|....@..A|
|00003300| 10 c2 09 c3 5c 22 0c 61 | ab 6f c5 c1 09 5c 22 88 |....\".a|.o...\".|
|00003310| aa 68 c6 87 22 20 5b 63 | 68 69 6c 64 72 65 6e 20 |.h.." [c|hildren |
|00003320| 63 68 69 6c 64 20 77 69 | 64 67 65 74 2d 67 65 74 |child wi|dget-get|
|00003330| 20 3a 62 75 74 74 6f 6e | 20 77 69 64 67 65 74 20 | :button| widget |
|00003340| 74 68 72 6f 77 20 6e 69 | 6c 5d 20 33 29 5d 20 33 |throw ni|l] 3)] 3|
|00003350| 20 28 23 24 20 2e 20 31 | 32 37 39 39 29 5d 29 0a | (#$ . 1|2799)]).|
|00003360| 23 40 32 33 37 20 4d 61 | 70 20 46 55 4e 43 54 49 |#@237 Ma|p FUNCTI|
|00003370| 4f 4e 20 6f 76 65 72 20 | 74 68 65 20 62 75 74 74 |ON over |the butt|
|00003380| 6f 6e 73 20 69 6e 20 42 | 55 46 46 45 52 2e 0a 46 |ons in B|UFFER..F|
|00003390| 55 4e 43 54 49 4f 4e 20 | 69 73 20 63 61 6c 6c 65 |UNCTION |is calle|
|000033a0| 64 20 77 69 74 68 20 74 | 68 65 20 61 72 67 75 6d |d with t|he argum|
|000033b0| 65 6e 74 73 20 57 49 44 | 47 45 54 20 61 6e 64 20 |ents WID|GET and |
|000033c0| 4d 41 50 41 52 47 2e 0a | 0a 49 66 20 46 55 4e 43 |MAPARG..|.If FUNC|
|000033d0| 54 49 4f 4e 20 72 65 74 | 75 72 6e 73 20 6e 6f 6e |TION ret|urns non|
|000033e0| 2d 6e 69 6c 2c 20 74 68 | 65 20 77 61 6c 6b 20 69 |-nil, th|e walk i|
|000033f0| 73 20 63 61 6e 63 65 6c | 6c 65 64 2e 0a 0a 54 68 |s cancel|led...Th|
|00003400| 65 20 61 72 67 75 6d 65 | 6e 74 73 20 4d 41 50 41 |e argume|nts MAPA|
|00003410| 52 47 2c 20 61 6e 64 20 | 42 55 46 46 45 52 20 64 |RG, and |BUFFER d|
|00003420| 65 66 61 75 6c 74 20 74 | 6f 20 6e 69 6c 20 61 6e |efault t|o nil an|
|00003430| 64 20 28 63 75 72 72 65 | 6e 74 2d 62 75 66 66 65 |d (curre|nt-buffe|
|00003440| 72 29 2c 0a 72 65 73 70 | 65 63 74 69 76 65 6c 79 |r),.resp|ectively|
|00003450| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 69 |...(defa|lias 'wi|
|00003460| 64 67 65 74 2d 6d 61 70 | 2d 62 75 74 74 6f 6e 73 |dget-map|-buttons|
|00003470| 20 23 5b 28 66 75 6e 63 | 74 69 6f 6e 20 26 6f 70 | #[(func|tion &op|
|00003480| 74 69 6f 6e 61 6c 20 62 | 75 66 66 65 72 20 6d 61 |tional b|uffer ma|
|00003490| 70 61 72 67 29 20 22 c0 | c1 c2 89 89 89 89 c3 26 |parg) ".|.......&|
|000034a0| 07 87 22 20 5b 6d 61 70 | 2d 65 78 74 65 6e 74 73 |.." [map|-extents|
|000034b0| 20 23 5b 28 65 78 74 65 | 6e 74 20 69 67 6e 6f 72 | #[(exte|nt ignor|
|000034c0| 65 29 20 22 08 c1 5c 6e | c3 5c 22 0c 5c 22 87 22 |e) "..\n|.\".\"."|
|000034d0| 20 5b 66 75 6e 63 74 69 | 6f 6e 20 65 78 74 65 6e | [functi|on exten|
|000034e0| 74 2d 70 72 6f 70 65 72 | 74 79 20 65 78 74 65 6e |t-proper|ty exten|
|000034f0| 74 20 62 75 74 74 6f 6e | 20 6d 61 70 61 72 67 5d |t button| maparg]|
|00003500| 20 34 5d 20 6e 69 6c 20 | 62 75 74 74 6f 6e 5d 20 | 4] nil |button] |
|00003510| 38 20 28 23 24 20 2e 20 | 31 33 31 35 38 29 5d 29 |8 (#$ . |13158)])|
|00003520| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00003530| 2d 76 61 72 69 61 62 6c | 65 20 27 77 69 64 67 65 |-variabl|e 'widge|
|00003540| 74 2d 67 6c 79 70 68 2d | 64 69 72 65 63 74 6f 72 |t-glyph-|director|
|00003550| 79 20 27 28 6c 6f 63 61 | 74 65 2d 64 61 74 61 2d |y '(loca|te-data-|
|00003560| 64 69 72 65 63 74 6f 72 | 79 20 22 63 75 73 74 6f |director|y "custo|
|00003570| 6d 22 29 20 22 57 68 65 | 72 65 20 77 69 64 67 65 |m") "Whe|re widge|
|00003580| 74 20 67 6c 79 70 68 73 | 20 61 72 65 20 6c 6f 63 |t glyphs| are loc|
|00003590| 61 74 65 64 2e 5c 6e 49 | 66 20 74 68 69 73 20 76 |ated.\nI|f this v|
|000035a0| 61 72 69 61 62 6c 65 20 | 69 73 20 6e 69 6c 2c 20 |ariable |is nil, |
|000035b0| 77 69 64 67 65 74 20 77 | 69 6c 6c 20 74 72 79 20 |widget w|ill try |
|000035c0| 74 6f 20 6c 6f 63 61 74 | 65 20 74 68 65 20 64 69 |to locat|e the di|
|000035d0| 72 65 63 74 6f 72 79 5c | 6e 61 75 74 6f 6d 61 74 |rectory\|nautomat|
|000035e0| 69 63 61 6c 6c 79 2e 22 | 20 3a 67 72 6f 75 70 20 |ically."| :group |
|000035f0| 27 77 69 64 67 65 74 73 | 20 3a 74 79 70 65 20 27 |'widgets| :type '|
|00003600| 64 69 72 65 63 74 6f 72 | 79 29 0a 28 63 75 73 74 |director|y).(cust|
|00003610| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00003620| 62 6c 65 20 27 77 69 64 | 67 65 74 2d 67 6c 79 70 |ble 'wid|get-glyp|
|00003630| 68 2d 65 6e 61 62 6c 65 | 20 27 74 20 22 49 66 20 |h-enable| 't "If |
|00003640| 6e 6f 6e 20 6e 69 6c 2c | 20 75 73 65 20 67 6c 79 |non nil,| use gly|
|00003650| 70 68 73 20 69 6e 20 69 | 6d 61 67 65 73 20 77 68 |phs in i|mages wh|
|00003660| 65 6e 20 61 76 61 69 6c | 61 62 6c 65 2e 22 20 3a |en avail|able." :|
|00003670| 67 72 6f 75 70 20 27 77 | 69 64 67 65 74 73 20 3a |group 'w|idgets :|
|00003680| 74 79 70 65 20 27 62 6f | 6f 6c 65 61 6e 29 0a 28 |type 'bo|olean).(|
|00003690| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|000036a0| 61 72 69 61 62 6c 65 20 | 27 77 69 64 67 65 74 2d |ariable |'widget-|
|000036b0| 69 6d 61 67 65 2d 63 6f | 6e 76 65 72 73 69 6f 6e |image-co|nversion|
|000036c0| 20 27 27 28 28 78 70 6d | 20 22 2e 78 70 6d 22 29 | ''((xpm| ".xpm")|
|000036d0| 20 28 67 69 66 20 22 2e | 67 69 66 22 29 20 28 70 | (gif ".|gif") (p|
|000036e0| 6e 67 20 22 2e 70 6e 67 | 22 29 20 28 6a 70 65 67 |ng ".png|") (jpeg|
|000036f0| 20 22 2e 6a 70 67 22 20 | 22 2e 6a 70 65 67 22 29 | ".jpg" |".jpeg")|
|00003700| 20 28 78 62 6d 20 22 2e | 78 62 6d 22 29 29 20 22 | (xbm ".|xbm")) "|
|00003710| 43 6f 6e 76 65 72 73 69 | 6f 6e 20 61 6c 69 73 74 |Conversi|on alist|
|00003720| 20 66 72 6f 6d 20 69 6d | 61 67 65 20 66 6f 72 6d | from im|age form|
|00003730| 61 74 73 20 74 6f 20 66 | 69 6c 65 20 6e 61 6d 65 |ats to f|ile name|
|00003740| 20 73 75 66 66 69 78 65 | 73 2e 22 20 3a 67 72 6f | suffixe|s." :gro|
|00003750| 75 70 20 27 77 69 64 67 | 65 74 73 20 3a 74 79 70 |up 'widg|ets :typ|
|00003760| 65 20 27 28 72 65 70 65 | 61 74 20 28 63 6f 6e 73 |e '(repe|at (cons|
|00003770| 20 3a 66 6f 72 6d 61 74 | 20 22 25 76 22 20 28 73 | :format| "%v" (s|
|00003780| 79 6d 62 6f 6c 20 3a 74 | 61 67 20 22 49 6d 61 67 |ymbol :t|ag "Imag|
|00003790| 65 20 46 6f 72 6d 61 74 | 22 20 75 6e 6b 6e 6f 77 |e Format|" unknow|
|000037a0| 6e 29 20 28 72 65 70 65 | 61 74 20 3a 74 61 67 20 |n) (repe|at :tag |
|000037b0| 22 53 75 66 66 69 78 65 | 73 22 20 28 73 74 72 69 |"Suffixe|s" (stri|
|000037c0| 6e 67 20 3a 66 6f 72 6d | 61 74 20 22 25 76 22 29 |ng :form|at "%v")|
|000037d0| 29 29 29 29 0a 23 40 35 | 30 20 43 61 63 68 65 20 |)))).#@5|0 Cache |
|000037e0| 6f 66 20 67 6c 79 70 68 | 73 20 61 73 73 6f 63 69 |of glyph|s associ|
|000037f0| 61 74 65 64 20 77 69 74 | 68 20 73 74 72 69 6e 67 |ated wit|h string|
|00003800| 73 20 28 66 69 6c 65 73 | 29 2e 1f 0a 28 64 65 66 |s (files|)...(def|
|00003810| 76 61 72 20 77 69 64 67 | 65 74 2d 67 6c 79 70 68 |var widg|et-glyph|
|00003820| 2d 63 61 63 68 65 20 6e | 69 6c 20 28 23 24 20 2e |-cache n|il (#$ .|
|00003830| 20 31 34 32 39 38 29 29 | 0a 23 40 33 36 34 20 43 | 14298))|.#@364 C|
|00003840| 72 65 61 74 65 20 61 20 | 67 6c 79 70 68 20 63 6f |reate a |glyph co|
|00003850| 72 72 65 73 70 6f 6e 64 | 69 6e 67 20 74 6f 20 49 |rrespond|ing to I|
|00003860| 4d 41 47 45 20 77 69 74 | 68 20 73 74 72 69 6e 67 |MAGE wit|h string|
|00003870| 20 54 41 47 20 61 73 20 | 66 61 6c 6c 62 61 63 6b | TAG as |fallback|
|00003880| 2e 0a 49 4d 41 47 45 20 | 63 61 6e 20 61 6c 72 65 |..IMAGE |can alre|
|00003890| 61 64 79 20 62 65 20 61 | 20 67 6c 79 70 68 2c 20 |ady be a| glyph, |
|000038a0| 6f 72 20 61 20 66 69 6c | 65 20 6e 61 6d 65 20 73 |or a fil|e name s|
|000038b0| 61 6e 73 20 65 78 74 65 | 6e 73 69 6f 6e 20 28 78 |ans exte|nsion (x|
|000038c0| 70 6d 2c 0a 20 78 62 6d | 2c 20 67 69 66 2c 20 6a |pm,. xbm|, gif, j|
|000038d0| 70 67 2c 20 6f 72 20 70 | 6e 67 29 20 6c 6f 63 61 |pg, or p|ng) loca|
|000038e0| 74 65 64 20 69 6e 20 60 | 77 69 64 67 65 74 2d 67 |ted in `|widget-g|
|000038f0| 6c 79 70 68 2d 64 69 72 | 65 63 74 6f 72 79 27 2c |lyph-dir|ectory',|
|00003900| 20 6f 72 0a 20 69 6e 20 | 6f 6e 65 20 6f 66 20 74 | or. in |one of t|
|00003910| 68 65 20 64 61 74 61 20 | 64 69 72 65 63 74 6f 72 |he data |director|
|00003920| 69 65 73 2e 0a 49 74 20 | 63 61 6e 20 61 6c 73 6f |ies..It |can also|
|00003930| 20 62 65 20 61 20 76 61 | 6c 69 64 20 69 6d 61 67 | be a va|lid imag|
|00003940| 65 20 69 6e 73 74 61 6e | 74 69 61 74 6f 72 2c 20 |e instan|tiator, |
|00003950| 69 6e 20 77 68 69 63 68 | 20 63 61 73 65 20 69 74 |in which| case it|
|00003960| 20 77 69 6c 6c 20 62 65 | 0a 20 75 73 65 64 20 74 | will be|. used t|
|00003970| 6f 20 6d 61 6b 65 20 74 | 68 65 20 67 6c 79 70 68 |o make t|he glyph|
|00003980| 2c 20 77 69 74 68 20 61 | 6e 20 61 64 64 69 74 69 |, with a|n additi|
|00003990| 6f 6e 61 6c 20 54 41 47 | 20 73 74 72 69 6e 67 20 |onal TAG| string |
|000039a0| 66 61 6c 6c 62 61 63 6b | 2e 1f 0a 28 64 65 66 61 |fallback|...(defa|
|000039b0| 6c 69 61 73 20 27 77 69 | 64 67 65 74 2d 67 6c 79 |lias 'wi|dget-gly|
|000039c0| 70 68 2d 66 69 6e 64 20 | 23 5b 28 69 6d 61 67 65 |ph-find |#[(image|
|000039d0| 20 74 61 67 29 20 22 08 | ab 83 09 ac 82 c2 87 c3 | tag) ".|........|
|000039e0| 20 ac 87 c4 08 21 ac 82 | c2 87 c4 08 21 ab 82 08 | ....!..|....!...|
|000039f0| 87 08 3b ab f0 c5 0e 06 | 08 5c 22 ae fd 0e 07 ae |..;.....|.\".....|
|00003a00| 83 c8 c9 21 0e 5c 6e 42 | 1e 0b 0e 0c 1e 0d c2 1e |...!.\nB|........|
|00003a10| 0e 0e 0d ab a8 0e 0e ac | a4 cf 0e 0d 40 40 21 ab |........|....@@!.|
|00003a20| 8f d0 08 0e 0b d1 d2 0e | 0d 40 41 d3 23 23 16 0e |........|.@A.##..|
|00003a30| 0e 0e ac 5d 0e 0d 89 41 | 16 0d 88 aa 54 0e 0e ad |...]...A|....T...|
|00003a40| a4 d4 d5 d6 0e 0d 40 40 | d7 0e 0e 45 5c 22 d5 d6 |......@@|...E\"..|
|00003a50| d8 d9 0e 1a 45 5c 22 44 | 21 1e 1b dc 0e 06 08 0e |....E\"D|!.......|
|00003a60| 1b 23 16 06 0e 1b 29 2b | 87 dd 08 c0 5c 22 ab 8d |.#....)+|....\"..|
|00003a70| d4 08 d5 d6 d8 d9 0e 1a | 45 5c 22 44 21 87 c2 87 |........|E\"D!...|
|00003a80| 22 20 5b 69 6d 61 67 65 | 20 77 69 64 67 65 74 2d |" [image| widget-|
|00003a90| 67 6c 79 70 68 2d 65 6e | 61 62 6c 65 20 6e 69 6c |glyph-en|able nil|
|00003aa0| 20 63 6f 6e 73 6f 6c 65 | 2d 6f 6e 2d 77 69 6e 64 | console|-on-wind|
|00003ab0| 6f 77 2d 73 79 73 74 65 | 6d 2d 70 20 67 6c 79 70 |ow-syste|m-p glyp|
|00003ac0| 68 70 20 6c 61 78 2d 70 | 6c 69 73 74 2d 67 65 74 |hp lax-p|list-get|
|00003ad0| 20 77 69 64 67 65 74 2d | 67 6c 79 70 68 2d 63 61 | widget-|glyph-ca|
|00003ae0| 63 68 65 20 77 69 64 67 | 65 74 2d 67 6c 79 70 68 |che widg|et-glyph|
|00003af0| 2d 64 69 72 65 63 74 6f | 72 79 20 6c 6f 63 61 74 |-directo|ry locat|
|00003b00| 65 2d 64 61 74 61 2d 64 | 69 72 65 63 74 6f 72 79 |e-data-d|irectory|
|00003b10| 20 22 63 75 73 74 6f 6d | 22 20 64 61 74 61 2d 64 | "custom|" data-d|
|00003b20| 69 72 65 63 74 6f 72 79 | 2d 6c 69 73 74 20 64 69 |irectory|-list di|
|00003b30| 72 6c 69 73 74 20 77 69 | 64 67 65 74 2d 69 6d 61 |rlist wi|dget-ima|
|00003b40| 67 65 2d 63 6f 6e 76 65 | 72 73 69 6f 6e 20 66 6f |ge-conve|rsion fo|
|00003b50| 72 6d 61 74 73 20 66 69 | 6c 65 20 76 61 6c 69 64 |rmats fi|le valid|
|00003b60| 2d 69 6d 61 67 65 2d 69 | 6e 73 74 61 6e 74 69 61 |-image-i|nstantia|
|00003b70| 74 6f 72 2d 66 6f 72 6d | 61 74 2d 70 20 6c 6f 63 |tor-form|at-p loc|
|00003b80| 61 74 65 2d 66 69 6c 65 | 20 6d 61 70 63 6f 6e 63 |ate-file| mapconc|
|00003b90| 61 74 20 69 64 65 6e 74 | 69 74 79 20 22 3a 22 20 |at ident|ity ":" |
|00003ba0| 6d 61 6b 65 2d 67 6c 79 | 70 68 20 61 70 70 6c 79 |make-gly|ph apply|
|00003bb0| 20 76 65 63 74 6f 72 20 | 3a 66 69 6c 65 20 73 74 | vector |:file st|
|00003bc0| 72 69 6e 67 20 3a 64 61 | 74 61 20 74 61 67 20 67 |ring :da|ta tag g|
|00003bd0| 6c 79 70 68 20 6c 61 78 | 2d 70 6c 69 73 74 2d 70 |lyph lax|-plist-p|
|00003be0| 75 74 20 76 61 6c 69 64 | 2d 69 6e 73 74 61 6e 74 |ut valid|-instant|
|00003bf0| 69 61 74 6f 72 2d 70 5d | 20 37 20 28 23 24 20 2e |iator-p]| 7 (#$ .|
|00003c00| 20 31 34 33 39 39 29 5d | 29 0a 23 40 35 32 37 20 | 14399)]|).#@527 |
|00003c10| 49 6e 20 57 49 44 47 45 | 54 2c 20 69 6e 73 65 72 |In WIDGE|T, inser|
|00003c20| 74 20 74 68 65 20 74 65 | 78 74 20 54 41 47 20 6f |t the te|xt TAG o|
|00003c30| 72 2c 20 69 66 20 73 75 | 70 70 6f 72 74 65 64 2c |r, if su|pported,|
|00003c40| 20 49 4d 41 47 45 2e 0a | 49 4d 41 47 45 20 73 68 | IMAGE..|IMAGE sh|
|00003c50| 6f 75 6c 64 20 65 69 74 | 68 65 72 20 62 65 20 61 |ould eit|her be a|
|00003c60| 20 67 6c 79 70 68 2c 20 | 61 6e 20 69 6d 61 67 65 | glyph, |an image|
|00003c70| 20 69 6e 73 74 61 6e 74 | 69 61 74 6f 72 2c 20 61 | instant|iator, a|
|00003c80| 6e 20 69 6d 61 67 65 20 | 66 69 6c 65 0a 6e 61 6d |n image |file.nam|
|00003c90| 65 20 73 61 6e 73 20 65 | 78 74 65 6e 73 69 6f 6e |e sans e|xtension|
|00003ca0| 20 28 78 70 6d 2c 20 78 | 62 6d 2c 20 67 69 66 2c | (xpm, x|bm, gif,|
|00003cb0| 20 6a 70 67 2c 20 6f 72 | 20 70 6e 67 29 20 6c 6f | jpg, or| png) lo|
|00003cc0| 63 61 74 65 64 20 69 6e | 0a 60 77 69 64 67 65 74 |cated in|.`widget|
|00003cd0| 2d 67 6c 79 70 68 2d 64 | 69 72 65 63 74 6f 72 79 |-glyph-d|irectory|
|00003ce0| 27 2c 20 6f 72 20 61 6e | 79 74 68 69 6e 67 20 65 |', or an|ything e|
|00003cf0| 6c 73 65 20 61 6c 6c 6f | 77 65 64 20 62 79 0a 60 |lse allo|wed by.`|
|00003d00| 77 69 64 67 65 74 2d 67 | 6c 79 70 68 2d 66 69 6e |widget-g|lyph-fin|
|00003d10| 64 27 2e 0a 0a 49 66 20 | 49 4d 41 47 45 20 69 73 |d'...If |IMAGE is|
|00003d20| 20 61 20 6c 69 73 74 2c | 20 69 74 20 77 69 6c 6c | a list,| it will|
|00003d30| 20 62 65 20 74 61 6b 65 | 6e 20 61 73 20 61 20 6c | be take|n as a l|
|00003d40| 69 73 74 20 6f 66 20 28 | 55 50 20 44 4f 57 4e 20 |ist of (|UP DOWN |
|00003d50| 49 4e 41 43 54 49 56 45 | 29 0a 67 6c 79 70 68 73 |INACTIVE|).glyphs|
|00003d60| 2e 20 20 54 68 65 20 64 | 6f 77 6e 20 61 6e 64 20 |. The d|own and |
|00003d70| 69 6e 61 63 74 69 76 65 | 20 67 6c 79 70 68 73 20 |inactive| glyphs |
|00003d80| 61 72 65 20 73 68 6f 77 | 6e 20 77 68 65 6e 20 67 |are show|n when g|
|00003d90| 6c 79 70 68 20 69 73 20 | 70 72 65 73 73 65 64 0a |lyph is |pressed.|
|00003da0| 6f 72 20 69 6e 61 63 74 | 69 76 65 2c 20 72 65 73 |or inact|ive, res|
|00003db0| 70 65 63 74 69 76 65 6c | 79 2e 0a 0a 54 68 65 20 |pectivel|y...The |
|00003dc0| 6f 70 74 69 6f 6e 61 6c | 20 44 4f 57 4e 20 61 6e |optional| DOWN an|
|00003dd0| 64 20 49 4e 41 43 54 49 | 56 45 20 61 72 67 75 6d |d INACTI|VE argum|
|00003de0| 65 6e 74 73 20 61 72 65 | 20 64 65 70 72 65 63 61 |ents are| depreca|
|00003df0| 74 65 64 2c 20 61 6e 64 | 20 65 78 69 73 74 0a 6f |ted, and| exist.o|
|00003e00| 6e 6c 79 20 62 65 63 61 | 75 73 65 20 6f 66 20 63 |nly beca|use of c|
|00003e10| 6f 6d 70 61 74 69 62 69 | 6c 69 74 79 2e 1f 0a 28 |ompatibi|lity...(|
|00003e20| 64 65 66 61 6c 69 61 73 | 20 27 77 69 64 67 65 74 |defalias| 'widget|
|00003e30| 2d 67 6c 79 70 68 2d 69 | 6e 73 65 72 74 20 23 5b |-glyph-i|nsert #[|
|00003e40| 28 77 69 64 67 65 74 20 | 74 61 67 20 69 6d 61 67 |(widget |tag imag|
|00003e50| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 64 6f 77 6e |e &optio|nal down|
|00003e60| 20 69 6e 61 63 74 69 76 | 65 29 20 22 08 3a ab 84 | inactiv|e) ".:..|
|00003e70| 08 40 ae 81 08 08 3a ab | 85 08 41 40 ae 81 09 08 |.@....:.|..A@....|
|00003e80| 3a ab 85 c2 08 38 ae 81 | 0b 13 11 10 c4 08 0d 5c |:....8..|.......\|
|00003e90| 22 89 1e 06 ab 91 c7 0e | 08 0e 06 c4 09 0d 5c 22 |".......|......\"|
|00003ea0| c4 0b 0d 5c 22 24 88 aa | 83 0d 63 88 0e 06 29 87 |...\"$..|..c...).|
|00003eb0| 22 20 5b 69 6d 61 67 65 | 20 64 6f 77 6e 20 32 20 |" [image| down 2 |
|00003ec0| 69 6e 61 63 74 69 76 65 | 20 77 69 64 67 65 74 2d |inactive| widget-|
|00003ed0| 67 6c 79 70 68 2d 66 69 | 6e 64 20 74 61 67 20 67 |glyph-fi|nd tag g|
|00003ee0| 6c 79 70 68 20 77 69 64 | 67 65 74 2d 67 6c 79 70 |lyph wid|get-glyp|
|00003ef0| 68 2d 69 6e 73 65 72 74 | 2d 67 6c 79 70 68 20 77 |h-insert|-glyph w|
|00003f00| 69 64 67 65 74 5d 20 38 | 20 28 23 24 20 2e 20 31 |idget] 8| (#$ . 1|
|00003f10| 35 33 37 36 29 5d 29 0a | 23 40 31 35 38 20 49 6e |5376)]).|#@158 In|
|00003f20| 20 57 49 44 47 45 54 2c | 20 69 6e 73 65 72 74 20 | WIDGET,| insert |
|00003f30| 47 4c 59 50 48 2e 0a 49 | 66 20 6f 70 74 69 6f 6e |GLYPH..I|f option|
|00003f40| 61 6c 20 61 72 67 75 6d | 65 6e 74 73 20 44 4f 57 |al argum|ents DOW|
|00003f50| 4e 20 61 6e 64 20 49 4e | 41 43 54 49 56 45 20 61 |N and IN|ACTIVE a|
|00003f60| 72 65 20 67 69 76 65 6e | 2c 20 74 68 65 79 20 73 |re given|, they s|
|00003f70| 68 6f 75 6c 64 20 62 65 | 0a 67 6c 79 70 68 73 20 |hould be|.glyphs |
|00003f80| 75 73 65 64 20 77 68 65 | 6e 20 74 68 65 20 77 69 |used whe|n the wi|
|00003f90| 64 67 65 74 20 69 73 20 | 70 75 73 68 65 64 20 61 |dget is |pushed a|
|00003fa0| 6e 64 20 69 6e 61 63 74 | 69 76 65 2c 20 72 65 73 |nd inact|ive, res|
|00003fb0| 70 65 63 74 69 76 65 6c | 79 2e 1f 0a 28 64 65 66 |pectivel|y...(def|
|00003fc0| 61 6c 69 61 73 20 27 77 | 69 64 67 65 74 2d 67 6c |alias 'w|idget-gl|
|00003fd0| 79 70 68 2d 69 6e 73 65 | 72 74 2d 67 6c 79 70 68 |yph-inse|rt-glyph|
|00003fe0| 20 23 5b 28 77 69 64 67 | 65 74 20 67 6c 79 70 68 | #[(widg|et glyph|
|00003ff0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 64 6f 77 6e 20 | &option|al down |
|00004000| 69 6e 61 63 74 69 76 65 | 29 20 22 c0 63 88 c1 60 |inactive|) ".c..`|
|00004010| 60 53 5c 22 5c 6e ad 84 | c3 5c 6e c4 5c 22 5c 6e |`S\"\n..|.\n.\"\n|
|00004020| ad 84 c3 5c 6e c5 5c 22 | 1e 06 1e 07 1e 08 c9 0e |...\n.\"|........|
|00004030| 08 ca 5c 6e 23 88 c9 0e | 08 cb cc 23 88 c9 0e 08 |..\n#...|...#....|
|00004040| cd cc 23 88 c9 0e 08 ce | cc 23 88 c9 0e 08 cf 0e |..#.....|.#......|
|00004050| 06 23 88 d0 0e 08 0e 11 | 5c 22 88 0e 07 3b ac 87 |.#......|\"...;..|
|00004060| 0e 07 ab 83 d2 16 07 0e | 07 ab 90 c9 0e 08 d3 0e |........|........|
|00004070| 07 23 88 c9 0e 08 c7 0e | 07 23 88 2b 5c 6e ad 9c |.#......|.#.+\n..|
|00004080| d4 5c 6e d5 0e 11 23 88 | 0e 16 ab 87 d4 5c 6e d7 |.\n...#.|.....\n.|
|00004090| 0e 16 23 88 0e 18 ad 86 | d4 5c 6e d9 0e 18 23 87 |..#.....|.\n...#.|
|000040a0| 22 20 5b 22 2a 22 20 6d | 61 6b 65 2d 65 78 74 65 |" ["*" m|ake-exte|
|000040b0| 6e 74 20 77 69 64 67 65 | 74 20 77 69 64 67 65 74 |nt widge|t widget|
|000040c0| 2d 67 65 74 20 3a 68 65 | 6c 70 2d 65 63 68 6f 20 |-get :he|lp-echo |
|000040d0| 3a 62 75 74 74 6f 6e 2d | 6b 65 79 6d 61 70 20 6d |:button-|keymap m|
|000040e0| 61 70 20 68 65 6c 70 2d | 65 63 68 6f 20 65 78 74 |ap help-|echo ext|
|000040f0| 65 6e 74 20 73 65 74 2d | 65 78 74 65 6e 74 2d 70 |ent set-|extent-p|
|00004100| 72 6f 70 65 72 74 79 20 | 67 6c 79 70 68 2d 77 69 |roperty |glyph-wi|
|00004110| 64 67 65 74 20 69 6e 76 | 69 73 69 62 6c 65 20 74 |dget inv|isible t|
|00004120| 20 73 74 61 72 74 2d 6f | 70 65 6e 20 65 6e 64 2d | start-o|pen end-|
|00004130| 6f 70 65 6e 20 6b 65 79 | 6d 61 70 20 73 65 74 2d |open key|map set-|
|00004140| 65 78 74 65 6e 74 2d 65 | 6e 64 2d 67 6c 79 70 68 |extent-e|nd-glyph|
|00004150| 20 67 6c 79 70 68 20 77 | 69 64 67 65 74 2d 6d 6f | glyph w|idget-mo|
|00004160| 75 73 65 2d 68 65 6c 70 | 20 62 61 6c 6c 6f 6f 6e |use-help| balloon|
|00004170| 2d 68 65 6c 70 20 77 69 | 64 67 65 74 2d 70 75 74 |-help wi|dget-put|
|00004180| 20 3a 67 6c 79 70 68 2d | 75 70 20 64 6f 77 6e 20 | :glyph-|up down |
|00004190| 3a 67 6c 79 70 68 2d 64 | 6f 77 6e 20 69 6e 61 63 |:glyph-d|own inac|
|000041a0| 74 69 76 65 20 3a 67 6c | 79 70 68 2d 69 6e 61 63 |tive :gl|yph-inac|
|000041b0| 74 69 76 65 5d 20 35 20 | 28 23 24 20 2e 20 31 36 |tive] 5 |(#$ . 16|
|000041c0| 31 35 38 29 5d 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |158)]).(|custom-d|
|000041d0| 65 63 6c 61 72 65 2d 67 | 72 6f 75 70 20 27 77 69 |eclare-g|roup 'wi|
|000041e0| 64 67 65 74 2d 62 75 74 | 74 6f 6e 20 6e 69 6c 20 |dget-but|ton nil |
|000041f0| 22 54 68 65 20 6c 6f 6f | 6b 20 6f 66 20 76 61 72 |"The loo|k of var|
|00004200| 69 6f 75 73 20 6b 69 6e | 64 73 20 6f 66 20 62 75 |ious kin|ds of bu|
|00004210| 74 74 6f 6e 73 2e 22 20 | 3a 67 72 6f 75 70 20 27 |ttons." |:group '|
|00004220| 77 69 64 67 65 74 73 29 | 0a 28 63 75 73 74 6f 6d |widgets)|.(custom|
|00004230| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00004240| 65 20 27 77 69 64 67 65 | 74 2d 62 75 74 74 6f 6e |e 'widge|t-button|
|00004250| 2d 70 72 65 66 69 78 20 | 27 22 22 20 22 53 74 72 |-prefix |'"" "Str|
|00004260| 69 6e 67 20 75 73 65 64 | 20 61 73 20 70 72 65 66 |ing used| as pref|
|00004270| 69 78 20 66 6f 72 20 62 | 75 74 74 6f 6e 73 2e 22 |ix for b|uttons."|
|00004280| 20 3a 74 79 70 65 20 27 | 73 74 72 69 6e 67 20 3a | :type '|string :|
|00004290| 67 72 6f 75 70 20 27 77 | 69 64 67 65 74 2d 62 75 |group 'w|idget-bu|
|000042a0| 74 74 6f 6e 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |tton).(c|ustom-de|
|000042b0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|000042c0| 77 69 64 67 65 74 2d 62 | 75 74 74 6f 6e 2d 73 75 |widget-b|utton-su|
|000042d0| 66 66 69 78 20 27 22 22 | 20 22 53 74 72 69 6e 67 |ffix '""| "String|
|000042e0| 20 75 73 65 64 20 61 73 | 20 73 75 66 66 69 78 20 | used as| suffix |
|000042f0| 66 6f 72 20 62 75 74 74 | 6f 6e 73 2e 22 20 3a 74 |for butt|ons." :t|
|00004300| 79 70 65 20 27 73 74 72 | 69 6e 67 20 3a 67 72 6f |ype 'str|ing :gro|
|00004310| 75 70 20 27 77 69 64 67 | 65 74 2d 62 75 74 74 6f |up 'widg|et-butto|
|00004320| 6e 29 0a 23 40 37 36 20 | 43 72 65 61 74 65 20 77 |n).#@76 |Create w|
|00004330| 69 64 67 65 74 20 6f 66 | 20 54 59 50 45 2e 0a 54 |idget of| TYPE..T|
|00004340| 68 65 20 6f 70 74 69 6f | 6e 61 6c 20 41 52 47 53 |he optio|nal ARGS|
|00004350| 20 61 72 65 20 61 64 64 | 69 74 69 6f 6e 61 6c 20 | are add|itional |
|00004360| 6b 65 79 77 6f 72 64 20 | 61 72 67 75 6d 65 6e 74 |keyword |argument|
|00004370| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 77 |s...(def|alias 'w|
|00004380| 69 64 67 65 74 2d 63 72 | 65 61 74 65 20 23 5b 28 |idget-cr|eate #[(|
|00004390| 74 79 70 65 20 26 72 65 | 73 74 20 61 72 67 73 29 |type &re|st args)|
|000043a0| 20 22 c0 c1 5c 6e 0b 23 | 1c c5 0c c6 5c 22 88 0c | "..\n.#|....\"..|
|000043b0| 29 87 22 20 5b 61 70 70 | 6c 79 20 77 69 64 67 65 |)." [app|ly widge|
|000043c0| 74 2d 63 6f 6e 76 65 72 | 74 20 74 79 70 65 20 61 |t-conver|t type a|
|000043d0| 72 67 73 20 77 69 64 67 | 65 74 20 77 69 64 67 65 |rgs widg|et widge|
|000043e0| 74 2d 61 70 70 6c 79 20 | 3a 63 72 65 61 74 65 5d |t-apply |:create]|
|000043f0| 20 34 20 28 23 24 20 2e | 20 31 37 31 39 32 29 5d | 4 (#$ .| 17192)]|
|00004400| 29 0a 23 40 31 31 37 20 | 41 73 20 70 61 72 74 20 |).#@117 |As part |
|00004410| 6f 66 20 74 68 65 20 77 | 69 64 67 65 74 20 50 41 |of the w|idget PA|
|00004420| 52 45 4e 54 2c 20 63 72 | 65 61 74 65 20 61 20 63 |RENT, cr|eate a c|
|00004430| 68 69 6c 64 20 77 69 64 | 67 65 74 20 54 59 50 45 |hild wid|get TYPE|
|00004440| 2e 0a 54 68 65 20 63 68 | 69 6c 64 20 69 73 20 63 |..The ch|ild is c|
|00004450| 6f 6e 76 65 72 74 65 64 | 2c 20 75 73 69 6e 67 20 |onverted|, using |
|00004460| 74 68 65 20 6b 65 79 77 | 6f 72 64 20 61 72 67 75 |the keyw|ord argu|
|00004470| 6d 65 6e 74 73 20 41 52 | 47 53 2e 1f 0a 28 64 65 |ments AR|GS...(de|
|00004480| 66 61 6c 69 61 73 20 27 | 77 69 64 67 65 74 2d 63 |falias '|widget-c|
|00004490| 72 65 61 74 65 2d 63 68 | 69 6c 64 2d 61 6e 64 2d |reate-ch|ild-and-|
|000044a0| 63 6f 6e 76 65 72 74 20 | 23 5b 28 70 61 72 65 6e |convert |#[(paren|
|000044b0| 74 20 74 79 70 65 20 26 | 72 65 73 74 20 61 72 67 |t type &|rest arg|
|000044c0| 73 29 20 22 c0 c1 5c 6e | 0b 23 1c c5 0c c6 0e 07 |s) "..\n|.#......|
|000044d0| 23 88 c8 0c c9 5c 22 ac | 9b c5 0c c9 c8 0e 07 c9 |#....\".|........|
|000044e0| 5c 22 ae 81 ca c8 0c cb | 5c 22 ae 81 ca 5c 5c c8 |\"......|\"...\\.|
|000044f0| 0e 07 cc 5c 22 5c 5c 23 | 88 cd 0c ce 5c 22 88 0c |...\"\\#|....\"..|
|00004500| 29 87 22 20 5b 61 70 70 | 6c 79 20 77 69 64 67 65 |)." [app|ly widge|
|00004510| 74 2d 63 6f 6e 76 65 72 | 74 20 74 79 70 65 20 61 |t-conver|t type a|
|00004520| 72 67 73 20 77 69 64 67 | 65 74 20 77 69 64 67 65 |rgs widg|et widge|
|00004530| 74 2d 70 75 74 20 3a 70 | 61 72 65 6e 74 20 70 61 |t-put :p|arent pa|
|00004540| 72 65 6e 74 20 77 69 64 | 67 65 74 2d 67 65 74 20 |rent wid|get-get |
|00004550| 3a 69 6e 64 65 6e 74 20 | 30 20 3a 65 78 74 72 61 |:indent |0 :extra|
|00004560| 2d 6f 66 66 73 65 74 20 | 3a 6f 66 66 73 65 74 20 |-offset |:offset |
|00004570| 77 69 64 67 65 74 2d 61 | 70 70 6c 79 20 3a 63 72 |widget-a|pply :cr|
|00004580| 65 61 74 65 5d 20 37 20 | 28 23 24 20 2e 20 31 37 |eate] 7 |(#$ . 17|
|00004590| 34 31 36 29 5d 29 0a 23 | 40 32 34 20 43 72 65 61 |416)]).#|@24 Crea|
|000045a0| 74 65 20 77 69 64 67 65 | 74 20 6f 66 20 54 59 50 |te widge|t of TYP|
|000045b0| 45 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 77 |E...(def|alias 'w|
|000045c0| 69 64 67 65 74 2d 63 72 | 65 61 74 65 2d 63 68 69 |idget-cr|eate-chi|
|000045d0| 6c 64 20 23 5b 28 70 61 | 72 65 6e 74 20 74 79 70 |ld #[(pa|rent typ|
|000045e0| 65 29 20 22 c0 09 21 1a | c3 5c 6e c4 0d 23 88 c6 |e) "..!.|.\n..#..|
|000045f0| 5c 6e c7 5c 22 ac 99 c3 | 5c 6e c7 c6 0d c7 5c 22 |\n.\"...|\n....\"|
|00004600| ae 81 c8 c6 5c 6e c9 5c | 22 ae 81 c8 5c 5c c6 0d |....\n.\|"...\\..|
|00004610| ca 5c 22 5c 5c 23 88 cb | 5c 6e cc 5c 22 88 5c 6e |.\"\\#..|\n.\".\n|
|00004620| 29 87 22 20 5b 63 6f 70 | 79 2d 73 65 71 75 65 6e |)." [cop|y-sequen|
|00004630| 63 65 20 74 79 70 65 20 | 77 69 64 67 65 74 20 77 |ce type |widget w|
|00004640| 69 64 67 65 74 2d 70 75 | 74 20 3a 70 61 72 65 6e |idget-pu|t :paren|
|00004650| 74 20 70 61 72 65 6e 74 | 20 77 69 64 67 65 74 2d |t parent| widget-|
|00004660| 67 65 74 20 3a 69 6e 64 | 65 6e 74 20 30 20 3a 65 |get :ind|ent 0 :e|
|00004670| 78 74 72 61 2d 6f 66 66 | 73 65 74 20 3a 6f 66 66 |xtra-off|set :off|
|00004680| 73 65 74 20 77 69 64 67 | 65 74 2d 61 70 70 6c 79 |set widg|et-apply|
|00004690| 20 3a 63 72 65 61 74 65 | 5d 20 37 20 28 23 24 20 | :create|] 7 (#$ |
|000046a0| 2e 20 31 37 38 32 30 29 | 5d 29 0a 23 40 34 31 20 |. 17820)|]).#@41 |
|000046b0| 43 72 65 61 74 65 20 77 | 69 64 67 65 74 20 6f 66 |Create w|idget of|
|000046c0| 20 54 59 50 45 20 77 69 | 74 68 20 76 61 6c 75 65 | TYPE wi|th value|
|000046d0| 20 56 41 4c 55 45 2e 1f | 0a 28 64 65 66 61 6c 69 | VALUE..|.(defali|
|000046e0| 61 73 20 27 77 69 64 67 | 65 74 2d 63 72 65 61 74 |as 'widg|et-creat|
|000046f0| 65 2d 63 68 69 6c 64 2d | 76 61 6c 75 65 20 23 5b |e-child-|value #[|
|00004700| 28 70 61 72 65 6e 74 20 | 74 79 70 65 20 76 61 6c |(parent |type val|
|00004710| 75 65 29 20 22 c0 09 21 | 1a c3 5c 6e c4 c5 5c 6e |ue) "..!|..\n..\n|
|00004720| c6 0e 07 23 23 88 c3 5c | 6e c8 0e 09 23 88 ca 5c |...##..\|n...#..\|
|00004730| 6e cb 5c 22 ac 9b c3 5c | 6e cb ca 0e 09 cb 5c 22 |n.\"...\|n.....\"|
|00004740| ae 81 cc ca 5c 6e cd 5c | 22 ae 81 cc 5c 5c ca 0e |....\n.\|"...\\..|
|00004750| 09 ce 5c 22 5c 5c 23 88 | c5 5c 6e cf 5c 22 88 5c |..\"\\#.|.\n.\".\|
|00004760| 6e 29 87 22 20 5b 63 6f | 70 79 2d 73 65 71 75 65 |n)." [co|py-seque|
|00004770| 6e 63 65 20 74 79 70 65 | 20 77 69 64 67 65 74 20 |nce type| widget |
|00004780| 77 69 64 67 65 74 2d 70 | 75 74 20 3a 76 61 6c 75 |widget-p|ut :valu|
|00004790| 65 20 77 69 64 67 65 74 | 2d 61 70 70 6c 79 20 3a |e widget|-apply :|
|000047a0| 76 61 6c 75 65 2d 74 6f | 2d 69 6e 74 65 72 6e 61 |value-to|-interna|
|000047b0| 6c 20 76 61 6c 75 65 20 | 3a 70 61 72 65 6e 74 20 |l value |:parent |
|000047c0| 70 61 72 65 6e 74 20 77 | 69 64 67 65 74 2d 67 65 |parent w|idget-ge|
|000047d0| 74 20 3a 69 6e 64 65 6e | 74 20 30 20 3a 65 78 74 |t :inden|t 0 :ext|
|000047e0| 72 61 2d 6f 66 66 73 65 | 74 20 3a 6f 66 66 73 65 |ra-offse|t :offse|
|000047f0| 74 20 3a 63 72 65 61 74 | 65 5d 20 37 20 28 23 24 |t :creat|e] 7 (#$|
|00004800| 20 2e 20 31 38 30 39 36 | 29 5d 29 0a 23 40 31 36 | . 18096|)]).#@16|
|00004810| 20 44 65 6c 65 74 65 20 | 57 49 44 47 45 54 2e 1f | Delete |WIDGET..|
|00004820| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 77 69 64 67 |.(defali|as 'widg|
|00004830| 65 74 2d 64 65 6c 65 74 | 65 20 23 5b 28 77 69 64 |et-delet|e #[(wid|
|00004840| 67 65 74 29 20 22 c0 09 | c2 5c 22 87 22 20 5b 77 |get) "..|.\"." [w|
|00004850| 69 64 67 65 74 2d 61 70 | 70 6c 79 20 77 69 64 67 |idget-ap|ply widg|
|00004860| 65 74 20 3a 64 65 6c 65 | 74 65 5d 20 33 20 28 23 |et :dele|te] 3 (#|
|00004870| 24 20 2e 20 31 38 34 34 | 39 29 5d 29 0a 23 40 31 |$ . 1844|9)]).#@1|
|00004880| 31 34 20 43 6f 6e 76 65 | 72 74 20 54 59 50 45 20 |14 Conve|rt TYPE |
|00004890| 74 6f 20 61 20 77 69 64 | 67 65 74 20 77 69 74 68 |to a wid|get with|
|000048a0| 6f 75 74 20 69 6e 73 65 | 72 74 69 6e 67 20 69 74 |out inse|rting it|
|000048b0| 20 69 6e 20 74 68 65 20 | 62 75 66 66 65 72 2e 0a | in the |buffer..|
|000048c0| 54 68 65 20 6f 70 74 69 | 6f 6e 61 6c 20 41 52 47 |The opti|onal ARG|
|000048d0| 53 20 61 72 65 20 61 64 | 64 69 74 69 6f 6e 61 6c |S are ad|ditional|
|000048e0| 20 6b 65 79 77 6f 72 64 | 20 61 72 67 75 6d 65 6e | keyword| argumen|
|000048f0| 74 73 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ts...(de|falias '|
|00004900| 77 69 64 67 65 74 2d 63 | 6f 6e 76 65 72 74 20 23 |widget-c|onvert #|
|00004910| 5b 28 74 79 70 65 20 26 | 72 65 73 74 20 61 72 67 |[(type &|rest arg|
|00004920| 73 29 20 22 08 39 ab 84 | 08 43 aa 83 c1 08 21 89 |s) ".9..|.C....!.|
|00004930| 1a 1b 0c 1d 0b 41 ab a5 | 0b 41 40 89 1e 06 39 ab |.....A..|.A@...9.|
|00004940| 90 c7 0e 06 21 c8 48 c9 | 61 ab 86 0b 41 41 13 aa |....!.H.|a...AA..|
|00004950| 89 0b ca 0b 41 44 a1 88 | cb 13 29 aa 57 0c ab a3 |....AD..|..).W...|
|00004960| 0c 40 89 1e 06 39 ab 90 | c7 0e 06 21 c8 48 c9 61 |.@...9..|...!.H.a|
|00004970| ab 86 0c 41 41 14 aa 88 | cc 5c 6e ca 0c 23 88 cb |...AA...|.\n..#..|
|00004980| 14 29 aa 5a 5c 6e 89 10 | ab 98 cd 08 41 ce 5c 22 |.).Z\n..|....A.\"|
|00004990| 89 1e 0f ab 85 0e 0f 5c | 6e 21 12 29 08 40 d0 4e |.......\|n!.).@.N|
|000049a0| 89 10 ac 68 0d ab a6 0d | 40 89 1e 06 39 ab 99 c7 |...h....|@...9...|
|000049b0| 0e 06 21 c8 48 c9 61 ab | 8f cc 5c 6e 0e 06 0d 41 |..!.H.a.|..\n...A|
|000049c0| 40 23 88 0d 41 41 15 aa | 82 cb 15 29 aa 57 d1 5c |@#..AA..|...).W.\|
|000049d0| 6e d2 5c 22 ab 92 d3 5c | 6e d2 5c 22 1e 14 cc 5c |n.\"...\|n.\"...\|
|000049e0| 6e d2 d5 5c 6e d6 0e 14 | 23 23 88 29 5c 6e 2b 87 |n..\n...|##.)\n+.|
|000049f0| 22 20 5b 74 79 70 65 20 | 63 6f 70 79 2d 73 65 71 |" [type |copy-seq|
|00004a00| 75 65 6e 63 65 20 77 69 | 64 67 65 74 20 63 75 72 |uence wi|dget cur|
|00004a10| 72 65 6e 74 20 61 72 67 | 73 20 6b 65 79 73 20 6e |rent arg|s keys n|
|00004a20| 65 78 74 20 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 |ext symb|ol-name |
|00004a30| 30 20 3f 5c 3a 20 3a 61 | 72 67 73 20 6e 69 6c 20 |0 ?\: :a|rgs nil |
|00004a40| 77 69 64 67 65 74 2d 70 | 75 74 20 70 6c 69 73 74 |widget-p|ut plist|
|00004a50| 2d 67 65 74 20 3a 63 6f | 6e 76 65 72 74 2d 77 69 |-get :co|nvert-wi|
|00004a60| 64 67 65 74 20 63 6f 6e | 76 65 72 74 2d 77 69 64 |dget con|vert-wid|
|00004a70| 67 65 74 20 77 69 64 67 | 65 74 2d 74 79 70 65 20 |get widg|et-type |
|00004a80| 77 69 64 67 65 74 2d 6d | 65 6d 62 65 72 20 3a 76 |widget-m|ember :v|
|00004a90| 61 6c 75 65 20 77 69 64 | 67 65 74 2d 67 65 74 20 |alue wid|get-get |
|00004aa0| 76 61 6c 75 65 20 77 69 | 64 67 65 74 2d 61 70 70 |value wi|dget-app|
|00004ab0| 6c 79 20 3a 76 61 6c 75 | 65 2d 74 6f 2d 69 6e 74 |ly :valu|e-to-int|
|00004ac0| 65 72 6e 61 6c 5d 20 38 | 20 28 23 24 20 2e 20 31 |ernal] 8| (#$ . 1|
|00004ad0| 38 35 36 33 29 5d 29 0a | 23 40 35 34 20 43 61 6c |8563)]).|#@54 Cal|
|00004ae0| 6c 20 60 69 6e 73 65 72 | 74 27 20 77 69 74 68 20 |l `inser|t' with |
|00004af0| 41 52 47 53 20 61 6e 64 | 20 6d 61 6b 65 20 74 68 |ARGS and| make th|
|00004b00| 65 20 74 65 78 74 20 72 | 65 61 64 20 6f 6e 6c 79 |e text r|ead only|
|00004b10| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 69 |...(defa|lias 'wi|
|00004b20| 64 67 65 74 2d 69 6e 73 | 65 72 74 20 23 5b 28 26 |dget-ins|ert #[(&|
|00004b30| 72 65 73 74 20 61 72 67 | 73 29 20 22 c0 c1 89 1a |rest arg|s) "....|
|00004b40| 1b 1c c5 c6 0e 07 5c 22 | 2b 87 22 20 5b 74 20 6e |......\"|+." [t n|
|00004b50| 69 6c 20 61 66 74 65 72 | 2d 63 68 61 6e 67 65 2d |il after|-change-|
|00004b60| 66 75 6e 63 74 69 6f 6e | 73 20 62 65 66 6f 72 65 |function|s before|
|00004b70| 2d 63 68 61 6e 67 65 2d | 66 75 6e 63 74 69 6f 6e |-change-|function|
|00004b80| 73 20 69 6e 68 69 62 69 | 74 2d 72 65 61 64 2d 6f |s inhibi|t-read-o|
|00004b90| 6e 6c 79 20 61 70 70 6c | 79 20 69 6e 73 65 72 74 |nly appl|y insert|
|00004ba0| 20 61 72 67 73 5d 20 33 | 20 28 23 24 20 2e 20 31 | args] 3| (#$ . 1|
|00004bb0| 39 31 36 35 29 5d 29 0a | 23 40 33 31 36 20 52 65 |9165)]).|#@316 Re|
|00004bc0| 74 75 72 6e 20 61 20 77 | 69 64 67 65 74 20 6f 66 |turn a w|idget of|
|00004bd0| 20 74 79 70 65 20 54 59 | 50 45 20 77 69 74 68 20 | type TY|PE with |
|00004be0| 65 6e 64 70 6f 69 6e 74 | 20 46 52 4f 4d 20 54 4f |endpoint| FROM TO|
|00004bf0| 2e 0a 4f 70 74 69 6f 6e | 61 6c 20 41 52 47 53 20 |..Option|al ARGS |
|00004c00| 61 72 65 20 65 78 74 72 | 61 20 6b 65 79 77 6f 72 |are extr|a keywor|
|00004c10| 64 20 61 72 67 75 6d 65 | 6e 74 73 20 66 6f 72 20 |d argume|nts for |
|00004c20| 54 59 50 45 2e 0a 61 6e | 64 20 54 4f 20 77 69 6c |TYPE..an|d TO wil|
|00004c30| 6c 20 62 65 20 75 73 65 | 64 20 61 73 20 74 68 65 |l be use|d as the|
|00004c40| 20 77 69 64 67 65 74 73 | 20 65 6e 64 20 70 6f 69 | widgets| end poi|
|00004c50| 6e 74 73 2e 20 49 66 20 | 6f 70 74 69 6f 6e 61 6c |nts. If |optional|
|00004c60| 20 61 72 67 75 6d 65 6e | 74 73 0a 42 55 54 54 4f | argumen|ts.BUTTO|
|00004c70| 4e 2d 46 52 4f 4d 20 61 | 6e 64 20 42 55 54 54 4f |N-FROM a|nd BUTTO|
|00004c80| 4e 2d 54 4f 20 61 72 65 | 20 67 69 76 65 6e 2c 20 |N-TO are| given, |
|00004c90| 74 68 65 73 65 20 77 69 | 6c 6c 20 62 65 20 75 73 |these wi|ll be us|
|00004ca0| 65 64 20 61 73 20 74 68 | 65 20 77 69 64 67 65 74 |ed as th|e widget|
|00004cb0| 73 0a 62 75 74 74 6f 6e | 20 65 6e 64 20 70 6f 69 |s.button| end poi|
|00004cc0| 6e 74 73 2e 0a 4f 70 74 | 69 6f 6e 61 6c 20 41 52 |nts..Opt|ional AR|
|00004cd0| 47 53 20 61 72 65 20 65 | 78 74 72 61 20 6b 65 79 |GS are e|xtra key|
|00004ce0| 77 6f 72 64 20 61 72 67 | 75 6d 65 6e 74 73 20 66 |word arg|uments f|
|00004cf0| 6f 72 20 54 59 50 45 2e | 1f 0a 28 64 65 66 61 6c |or TYPE.|..(defal|
|00004d00| 69 61 73 20 27 77 69 64 | 67 65 74 2d 63 6f 6e 76 |ias 'wid|get-conv|
|00004d10| 65 72 74 2d 74 65 78 74 | 20 23 5b 28 74 79 70 65 |ert-text| #[(type|
|00004d20| 20 66 72 6f 6d 20 74 6f | 20 26 6f 70 74 69 6f 6e | from to| &option|
|00004d30| 61 6c 20 62 75 74 74 6f | 6e 2d 66 72 6f 6d 20 62 |al butto|n-from b|
|00004d40| 75 74 74 6f 6e 2d 74 6f | 20 26 72 65 73 74 20 61 |utton-to| &rest a|
|00004d50| 72 67 73 29 20 22 c0 c1 | 5c 6e c3 c4 0d 25 c6 0e |rgs) "..|\n...%..|
|00004d60| 07 21 c6 0e 08 21 1e 08 | 1e 07 1e 09 ca 0e 07 cb |.!...!..|........|
|00004d70| 5c 22 88 ca 0e 08 cc 5c | 22 88 cd 0e 09 ce 0e 07 |\".....\|".......|
|00004d80| 23 88 cd 0e 09 cf 0e 08 | 23 88 0e 10 ab 89 d1 0e |#.......|#.......|
|00004d90| 09 0e 10 0e 12 23 88 0e | 09 2b 87 22 20 5b 61 70 |.....#..|.+." [ap|
|00004da0| 70 6c 79 20 77 69 64 67 | 65 74 2d 63 6f 6e 76 65 |ply widg|et-conve|
|00004db0| 72 74 20 74 79 70 65 20 | 3a 64 65 6c 65 74 65 20 |rt type |:delete |
|00004dc0| 77 69 64 67 65 74 2d 6c | 65 61 76 65 2d 74 65 78 |widget-l|eave-tex|
|00004dd0| 74 20 61 72 67 73 20 63 | 6f 70 79 2d 6d 61 72 6b |t args c|opy-mark|
|00004de0| 65 72 20 66 72 6f 6d 20 | 74 6f 20 77 69 64 67 65 |er from |to widge|
|00004df0| 74 20 73 65 74 2d 6d 61 | 72 6b 65 72 2d 69 6e 73 |t set-ma|rker-ins|
|00004e00| 65 72 74 69 6f 6e 2d 74 | 79 70 65 20 74 20 6e 69 |ertion-t|ype t ni|
|00004e10| 6c 20 77 69 64 67 65 74 | 2d 70 75 74 20 3a 66 72 |l widget|-put :fr|
|00004e20| 6f 6d 20 3a 74 6f 20 62 | 75 74 74 6f 6e 2d 66 72 |om :to b|utton-fr|
|00004e30| 6f 6d 20 77 69 64 67 65 | 74 2d 73 70 65 63 69 66 |om widge|t-specif|
|00004e40| 79 2d 62 75 74 74 6f 6e | 20 62 75 74 74 6f 6e 2d |y-button| button-|
|00004e50| 74 6f 5d 20 36 20 28 23 | 24 20 2e 20 31 39 33 39 |to] 6 (#|$ . 1939|
|00004e60| 30 29 5d 29 0a 23 40 32 | 36 34 20 52 65 74 75 72 |0)]).#@2|64 Retur|
|00004e70| 6e 20 61 20 77 69 64 67 | 65 74 20 6f 66 20 74 79 |n a widg|et of ty|
|00004e80| 70 65 20 54 59 50 45 20 | 77 69 74 68 20 65 6e 64 |pe TYPE |with end|
|00004e90| 70 6f 69 6e 74 20 46 52 | 4f 4d 20 54 4f 2e 0a 4f |point FR|OM TO..O|
|00004ea0| 70 74 69 6f 6e 61 6c 20 | 41 52 47 53 20 61 72 65 |ptional |ARGS are|
|00004eb0| 20 65 78 74 72 61 20 6b | 65 79 77 6f 72 64 20 61 | extra k|eyword a|
|00004ec0| 72 67 75 6d 65 6e 74 73 | 20 66 6f 72 20 54 59 50 |rguments| for TYP|
|00004ed0| 45 2e 0a 4e 6f 20 74 65 | 78 74 20 77 69 6c 6c 20 |E..No te|xt will |
|00004ee0| 62 65 20 69 6e 73 65 72 | 74 65 64 20 74 6f 20 74 |be inser|ted to t|
|00004ef0| 68 65 20 62 75 66 66 65 | 72 2c 20 69 6e 73 74 65 |he buffe|r, inste|
|00004f00| 61 64 20 74 68 65 20 74 | 65 78 74 20 62 65 74 77 |ad the t|ext betw|
|00004f10| 65 65 6e 20 46 52 4f 4d | 0a 61 6e 64 20 54 4f 20 |een FROM|.and TO |
|00004f20| 77 69 6c 6c 20 62 65 20 | 75 73 65 64 20 61 73 20 |will be |used as |
|00004f30| 74 68 65 20 77 69 64 67 | 65 74 73 20 65 6e 64 20 |the widg|ets end |
|00004f40| 70 6f 69 6e 74 73 2c 20 | 61 73 20 77 65 6c 6c 20 |points, |as well |
|00004f50| 61 73 20 74 68 65 20 77 | 69 64 67 65 74 73 0a 62 |as the w|idgets.b|
|00004f60| 75 74 74 6f 6e 20 65 6e | 64 20 70 6f 69 6e 74 73 |utton en|d points|
|00004f70| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 69 |...(defa|lias 'wi|
|00004f80| 64 67 65 74 2d 63 6f 6e | 76 65 72 74 2d 62 75 74 |dget-con|vert-but|
|00004f90| 74 6f 6e 20 23 5b 28 74 | 79 70 65 20 66 72 6f 6d |ton #[(t|ype from|
|00004fa0| 20 74 6f 20 26 72 65 73 | 74 20 61 72 67 73 29 20 | to &res|t args) |
|00004fb0| 22 c0 c1 5c 6e 0b 0c 0b | 0c 0d 26 07 87 22 20 5b |"..\n...|..&.." [|
|00004fc0| 61 70 70 6c 79 20 77 69 | 64 67 65 74 2d 63 6f 6e |apply wi|dget-con|
|00004fd0| 76 65 72 74 2d 74 65 78 | 74 20 74 79 70 65 20 66 |vert-tex|t type f|
|00004fe0| 72 6f 6d 20 74 6f 20 61 | 72 67 73 5d 20 38 20 28 |rom to a|rgs] 8 (|
|00004ff0| 23 24 20 2e 20 32 30 30 | 37 35 29 5d 29 0a 23 40 |#$ . 200|75)]).#@|
|00005000| 35 38 20 52 65 6d 6f 76 | 65 20 6d 61 72 6b 65 72 |58 Remov|e marker|
|00005010| 73 20 61 6e 64 20 65 78 | 74 65 6e 74 73 20 66 72 |s and ex|tents fr|
|00005020| 6f 6d 20 57 49 44 47 45 | 54 20 61 6e 64 20 69 74 |om WIDGE|T and it|
|00005030| 73 20 63 68 69 6c 64 72 | 65 6e 2e 1f 0a 28 64 65 |s childr|en...(de|
|00005040| 66 61 6c 69 61 73 20 27 | 77 69 64 67 65 74 2d 6c |falias '|widget-l|
|00005050| 65 61 76 65 2d 74 65 78 | 74 20 23 5b 28 77 69 64 |eave-tex|t #[(wid|
|00005060| 67 65 74 29 20 22 c0 09 | c2 5c 22 c0 09 c3 5c 22 |get) "..|.\"...\"|
|00005070| c0 09 c4 5c 22 c0 09 c5 | 5c 22 c0 09 c6 5c 22 c0 |...\"...|\"...\".|
|00005080| 09 c7 5c 22 c0 09 c8 5c | 22 1e 09 1e 5c 6e 1e 0b |..\"...\|"...\n..|
|00005090| 1e 0c 1e 0d 1e 0e 89 1e | 0f d0 89 93 88 0e 0e d0 |........|........|
|000050a0| 89 93 88 0e 0d ab 85 d1 | 0e 0d 21 88 0e 0c ab 85 |........|..!.....|
|000050b0| d1 0e 0c 21 88 0e 0b ab | 85 d1 0e 0b 21 88 0e 5c |...!....|....!..\|
|000050c0| 6e ab 85 d1 0e 5c 6e 21 | 88 d2 d3 0e 09 5c 22 2e |n....\n!|.....\".|
|000050d0| 07 87 22 20 5b 77 69 64 | 67 65 74 2d 67 65 74 20 |.." [wid|get-get |
|000050e0| 77 69 64 67 65 74 20 3a | 66 72 6f 6d 20 3a 74 6f |widget :|from :to|
|000050f0| 20 3a 62 75 74 74 6f 6e | 2d 65 78 74 65 6e 74 20 | :button|-extent |
|00005100| 3a 73 61 6d 70 6c 65 2d | 65 78 74 65 6e 74 20 3a |:sample-|extent :|
|00005110| 64 6f 63 2d 65 78 74 65 | 6e 74 20 3a 66 69 65 6c |doc-exte|nt :fiel|
|00005120| 64 2d 65 78 74 65 6e 74 | 20 3a 63 68 69 6c 64 72 |d-extent| :childr|
|00005130| 65 6e 20 63 68 69 6c 64 | 72 65 6e 20 66 69 65 6c |en child|ren fiel|
|00005140| 64 20 64 6f 63 20 73 61 | 6d 70 6c 65 20 62 75 74 |d doc sa|mple but|
|00005150| 74 6f 6e 20 74 6f 20 66 | 72 6f 6d 20 6e 69 6c 20 |ton to f|rom nil |
|00005160| 64 65 74 61 63 68 2d 65 | 78 74 65 6e 74 20 6d 61 |detach-e|xtent ma|
|00005170| 70 63 20 77 69 64 67 65 | 74 2d 6c 65 61 76 65 2d |pc widge|t-leave-|
|00005180| 74 65 78 74 5d 20 31 30 | 20 28 23 24 20 2e 20 32 |text] 10| (#$ . 2|
|00005190| 30 34 38 33 29 5d 29 0a | 23 40 31 32 32 20 4b 65 |0483)]).|#@122 Ke|
|000051a0| 79 6d 61 70 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |ymap con|taining |
|000051b0| 75 73 65 66 75 6c 20 62 | 69 6e 64 69 6e 67 20 66 |useful b|inding f|
|000051c0| 6f 72 20 62 75 66 66 65 | 72 73 20 63 6f 6e 74 61 |or buffe|rs conta|
|000051d0| 69 6e 69 6e 67 20 77 69 | 64 67 65 74 73 2e 0a 52 |ining wi|dgets..R|
|000051e0| 65 63 6f 6d 6d 65 6e 64 | 65 64 20 61 73 20 61 20 |ecommend|ed as a |
|000051f0| 70 61 72 65 6e 74 20 6b | 65 79 6d 61 70 20 66 6f |parent k|eymap fo|
|00005200| 72 20 6d 6f 64 65 73 20 | 75 73 69 6e 67 20 77 69 |r modes |using wi|
|00005210| 64 67 65 74 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |dgets...|(defvar |
|00005220| 77 69 64 67 65 74 2d 6b | 65 79 6d 61 70 20 6e 69 |widget-k|eymap ni|
|00005230| 6c 20 28 23 24 20 2e 20 | 32 30 38 39 34 29 29 0a |l (#$ . |20894)).|
|00005240| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ac 9b c1 |(byte-co|de "....|
|00005250| 20 10 c2 08 c3 c4 23 88 | c2 08 c5 c6 23 88 c2 08 | .....#.|....#...|
|00005260| c7 c6 23 88 c2 08 c8 c6 | 23 88 c1 87 22 20 5b 77 |..#.....|#..." [w|
|00005270| 69 64 67 65 74 2d 6b 65 | 79 6d 61 70 20 6d 61 6b |idget-ke|ymap mak|
|00005280| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 20 |e-sparse|-keymap |
|00005290| 64 65 66 69 6e 65 2d 6b | 65 79 20 5b 74 61 62 5d |define-k|ey [tab]|
|000052a0| 20 77 69 64 67 65 74 2d | 66 6f 72 77 61 72 64 20 | widget-|forward |
|000052b0| 5b 28 73 68 69 66 74 20 | 74 61 62 29 5d 20 77 69 |[(shift |tab)] wi|
|000052c0| 64 67 65 74 2d 62 61 63 | 6b 77 61 72 64 20 5b 28 |dget-bac|kward [(|
|000052d0| 6d 65 74 61 20 74 61 62 | 29 5d 20 5b 62 61 63 6b |meta tab|)] [back|
|000052e0| 74 61 62 5d 5d 20 34 29 | 0a 23 40 36 33 20 4b 65 |tab]] 4)|.#@63 Ke|
|000052f0| 79 6d 61 70 20 75 73 65 | 64 20 66 6f 72 20 65 76 |ymap use|d for ev|
|00005300| 65 6e 74 73 20 74 68 65 | 20 77 69 64 67 65 74 20 |ents the| widget |
|00005310| 64 6f 65 73 20 6e 6f 74 | 20 68 61 6e 64 6c 65 20 |does not| handle |
|00005320| 74 68 65 6d 73 65 6c 76 | 65 73 2e 1f 0a 28 64 65 |themselv|es...(de|
|00005330| 66 76 61 72 20 77 69 64 | 67 65 74 2d 67 6c 6f 62 |fvar wid|get-glob|
|00005340| 61 6c 2d 6d 61 70 20 67 | 6c 6f 62 61 6c 2d 6d 61 |al-map g|lobal-ma|
|00005350| 70 20 28 23 24 20 2e 20 | 32 31 32 33 30 29 29 0a |p (#$ . |21230)).|
|00005360| 28 6d 61 6b 65 2d 76 61 | 72 69 61 62 6c 65 2d 62 |(make-va|riable-b|
|00005370| 75 66 66 65 72 2d 6c 6f | 63 61 6c 20 27 77 69 64 |uffer-lo|cal 'wid|
|00005380| 67 65 74 2d 67 6c 6f 62 | 61 6c 2d 6d 61 70 29 0a |get-glob|al-map).|
|00005390| 23 40 33 39 20 4b 65 79 | 6d 61 70 20 75 73 65 64 |#@39 Key|map used|
|000053a0| 20 69 6e 73 69 64 65 20 | 61 6e 20 65 64 69 74 61 | inside |an edita|
|000053b0| 62 6c 65 20 66 69 65 6c | 64 2e 1f 0a 28 64 65 66 |ble fiel|d...(def|
|000053c0| 76 61 72 20 77 69 64 67 | 65 74 2d 66 69 65 6c 64 |var widg|et-field|
|000053d0| 2d 6b 65 79 6d 61 70 20 | 6e 69 6c 20 28 23 24 20 |-keymap |nil (#$ |
|000053e0| 2e 20 32 31 33 39 37 29 | 29 0a 28 62 79 74 65 2d |. 21397)|).(byte-|
|000053f0| 63 6f 64 65 20 22 08 ac | b8 c1 20 10 c2 08 0b 5c |code "..|.. ....\|
|00005400| 22 88 c4 08 c5 c6 23 88 | c4 08 c7 c8 23 88 c4 08 |".....#.|....#...|
|00005410| c9 ca 23 88 c4 08 cb cc | 23 88 c4 08 cd ce 23 88 |..#.....|#.....#.|
|00005420| c4 08 cf d0 23 88 c4 08 | d1 d2 23 88 c4 08 d3 d4 |....#...|..#.....|
|00005430| 23 88 c1 87 22 20 5b 77 | 69 64 67 65 74 2d 66 69 |#..." [w|idget-fi|
|00005440| 65 6c 64 2d 6b 65 79 6d | 61 70 20 6d 61 6b 65 2d |eld-keym|ap make-|
|00005450| 73 70 61 72 73 65 2d 6b | 65 79 6d 61 70 20 73 65 |sparse-k|eymap se|
|00005460| 74 2d 6b 65 79 6d 61 70 | 2d 70 61 72 65 6e 74 73 |t-keymap|-parents|
|00005470| 20 67 6c 6f 62 61 6c 2d | 6d 61 70 20 64 65 66 69 | global-|map defi|
|00005480| 6e 65 2d 6b 65 79 20 22 | 0b 22 20 77 69 64 67 65 |ne-key "|." widge|
|00005490| 74 2d 6b 69 6c 6c 2d 6c | 69 6e 65 20 5b 28 6d 65 |t-kill-l|ine [(me|
|000054a0| 74 61 20 74 61 62 29 5d | 20 77 69 64 67 65 74 2d |ta tab)]| widget-|
|000054b0| 63 6f 6d 70 6c 65 74 65 | 20 5b 74 61 62 5d 20 77 |complete| [tab] w|
|000054c0| 69 64 67 65 74 2d 66 6f | 72 77 61 72 64 20 5b 28 |idget-fo|rward [(|
|000054d0| 73 68 69 66 74 20 74 61 | 62 29 5d 20 77 69 64 67 |shift ta|b)] widg|
|000054e0| 65 74 2d 62 61 63 6b 77 | 61 72 64 20 22 0d 22 20 |et-backw|ard "." |
|000054f0| 77 69 64 67 65 74 2d 66 | 69 65 6c 64 2d 61 63 74 |widget-f|ield-act|
|00005500| 69 76 61 74 65 20 22 01 | 22 20 77 69 64 67 65 74 |ivate ".|" widget|
|00005510| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 6c 69 |-beginni|ng-of-li|
|00005520| 6e 65 20 22 05 22 20 77 | 69 64 67 65 74 2d 65 6e |ne "." w|idget-en|
|00005530| 64 2d 6f 66 2d 6c 69 6e | 65 20 22 14 22 20 77 69 |d-of-lin|e "." wi|
|00005540| 64 67 65 74 2d 74 72 61 | 6e 73 70 6f 73 65 2d 63 |dget-tra|nspose-c|
|00005550| 68 61 72 73 5d 20 34 29 | 0a 23 40 33 34 20 4b 65 |hars] 4)|.#@34 Ke|
|00005560| 79 6d 61 70 20 75 73 65 | 64 20 69 6e 73 69 64 65 |ymap use|d inside|
|00005570| 20 61 20 74 65 78 74 20 | 66 69 65 6c 64 2e 1f 0a | a text |field...|
|00005580| 28 64 65 66 76 61 72 20 | 77 69 64 67 65 74 2d 74 |(defvar |widget-t|
|00005590| 65 78 74 2d 6b 65 79 6d | 61 70 20 6e 69 6c 20 28 |ext-keym|ap nil (|
|000055a0| 23 24 20 2e 20 32 31 38 | 35 34 29 29 0a 28 62 79 |#$ . 218|54)).(by|
|000055b0| 74 65 2d 63 6f 64 65 20 | 22 08 ac 9a c1 20 10 c2 |te-code |".... ..|
|000055c0| 0b 0c 5c 22 88 c5 08 c6 | c7 23 88 c5 08 c8 c9 23 |..\"....|.#.....#|
|000055d0| 88 c5 08 ca cb 23 88 c1 | 87 22 20 5b 77 69 64 67 |.....#..|." [widg|
|000055e0| 65 74 2d 74 65 78 74 2d | 6b 65 79 6d 61 70 20 6d |et-text-|keymap m|
|000055f0| 61 6b 65 2d 73 70 61 72 | 73 65 2d 6b 65 79 6d 61 |ake-spar|se-keyma|
|00005600| 70 20 73 65 74 2d 6b 65 | 79 6d 61 70 2d 70 61 72 |p set-ke|ymap-par|
|00005610| 65 6e 74 73 20 77 69 64 | 67 65 74 2d 66 69 65 6c |ents wid|get-fiel|
|00005620| 64 2d 6b 65 79 6d 61 70 | 20 67 6c 6f 62 61 6c 2d |d-keymap| global-|
|00005630| 6d 61 70 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 22 |map defi|ne-key "|
|00005640| 01 22 20 77 69 64 67 65 | 74 2d 62 65 67 69 6e 6e |." widge|t-beginn|
|00005650| 69 6e 67 2d 6f 66 2d 6c | 69 6e 65 20 22 05 22 20 |ing-of-l|ine "." |
|00005660| 77 69 64 67 65 74 2d 65 | 6e 64 2d 6f 66 2d 6c 69 |widget-e|nd-of-li|
|00005670| 6e 65 20 22 14 22 20 77 | 69 64 67 65 74 2d 74 72 |ne "." w|idget-tr|
|00005680| 61 6e 73 70 6f 73 65 2d | 63 68 61 72 73 5d 20 34 |anspose-|chars] 4|
|00005690| 29 0a 23 40 33 30 20 4b | 65 79 6d 61 70 20 75 73 |).#@30 K|eymap us|
|000056a0| 65 64 20 69 6e 73 69 64 | 65 20 61 20 62 75 74 74 |ed insid|e a butt|
|000056b0| 6f 6e 2e 1f 0a 28 64 65 | 66 76 61 72 20 77 69 64 |on...(de|fvar wid|
|000056c0| 67 65 74 2d 62 75 74 74 | 6f 6e 2d 6b 65 79 6d 61 |get-butt|on-keyma|
|000056d0| 70 20 6e 69 6c 20 28 23 | 24 20 2e 20 32 32 31 36 |p nil (#|$ . 2216|
|000056e0| 37 29 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |7)).(byt|e-code "|
|000056f0| 08 ac a0 c1 20 10 c2 08 | 0b 5c 22 88 c4 08 c5 c6 |.... ...|.\".....|
|00005700| 23 88 c4 08 c7 c8 23 88 | c4 08 c9 c8 23 88 c4 08 |#.....#.|....#...|
|00005710| ca cb 23 88 c1 87 22 20 | 5b 77 69 64 67 65 74 2d |..#..." |[widget-|
|00005720| 62 75 74 74 6f 6e 2d 6b | 65 79 6d 61 70 20 6d 61 |button-k|eymap ma|
|00005730| 6b 65 2d 73 70 61 72 73 | 65 2d 6b 65 79 6d 61 70 |ke-spars|e-keymap|
|00005740| 20 73 65 74 2d 6b 65 79 | 6d 61 70 2d 70 61 72 65 | set-key|map-pare|
|00005750| 6e 74 73 20 77 69 64 67 | 65 74 2d 6b 65 79 6d 61 |nts widg|et-keyma|
|00005760| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 0d 22 |p define|-key "."|
|00005770| 20 77 69 64 67 65 74 2d | 62 75 74 74 6f 6e 2d 70 | widget-|button-p|
|00005780| 72 65 73 73 20 5b 62 75 | 74 74 6f 6e 32 5d 20 77 |ress [bu|tton2] w|
|00005790| 69 64 67 65 74 2d 62 75 | 74 74 6f 6e 2d 63 6c 69 |idget-bu|tton-cli|
|000057a0| 63 6b 20 5b 62 75 74 74 | 6f 6e 33 5d 20 5b 62 75 |ck [butt|on3] [bu|
|000057b0| 74 74 6f 6e 31 5d 20 77 | 69 64 67 65 74 2d 62 75 |tton1] w|idget-bu|
|000057c0| 74 74 6f 6e 31 2d 63 6c | 69 63 6b 5d 20 34 29 0a |tton1-cl|ick] 4).|
|000057d0| 23 40 33 36 20 49 6e 76 | 6f 6b 65 20 74 68 65 20 |#@36 Inv|oke the |
|000057e0| 65 64 69 61 62 6c 65 20 | 66 69 65 6c 64 20 61 74 |ediable |field at|
|000057f0| 20 70 6f 69 6e 74 2e 1f | 0a 28 64 65 66 61 6c 69 | point..|.(defali|
|00005800| 61 73 20 27 77 69 64 67 | 65 74 2d 66 69 65 6c 64 |as 'widg|et-field|
|00005810| 2d 61 63 74 69 76 61 74 | 65 20 23 5b 28 70 6f 73 |-activat|e #[(pos|
|00005820| 20 26 6f 70 74 69 6f 6e | 61 6c 20 65 76 65 6e 74 | &option|al event|
|00005830| 29 20 22 c0 09 21 89 1a | ab 86 c3 5c 6e 0c 5c 22 |) "..!..|...\n.\"|
|00005840| aa 88 c5 c6 0e 07 c8 20 | 5c 22 21 29 87 22 20 5b |....... |\"!)." [|
|00005850| 77 69 64 67 65 74 2d 66 | 69 65 6c 64 2d 66 69 6e |widget-f|ield-fin|
|00005860| 64 20 70 6f 73 20 66 69 | 65 6c 64 20 77 69 64 67 |d pos fi|eld widg|
|00005870| 65 74 2d 61 70 70 6c 79 | 2d 61 63 74 69 6f 6e 20 |et-apply|-action |
|00005880| 65 76 65 6e 74 20 63 61 | 6c 6c 2d 69 6e 74 65 72 |event ca|ll-inter|
|00005890| 61 63 74 69 76 65 6c 79 | 20 6c 6f 6f 6b 75 70 2d |actively| lookup-|
|000058a0| 6b 65 79 20 77 69 64 67 | 65 74 2d 67 6c 6f 62 61 |key widg|et-globa|
|000058b0| 6c 2d 6d 61 70 20 74 68 | 69 73 2d 63 6f 6d 6d 61 |l-map th|is-comma|
|000058c0| 6e 64 2d 6b 65 79 73 5d | 20 35 20 28 23 24 20 2e |nd-keys]| 5 (#$ .|
|000058d0| 20 32 32 34 38 35 29 20 | 22 40 64 22 5d 29 0a 28 | 22485) |"@d"]).(|
|000058e0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 66 |custom-d|eclare-f|
|000058f0| 61 63 65 20 27 77 69 64 | 67 65 74 2d 62 75 74 74 |ace 'wid|get-butt|
|00005900| 6f 6e 2d 70 72 65 73 73 | 65 64 2d 66 61 63 65 20 |on-press|ed-face |
|00005910| 27 28 28 28 28 63 6c 61 | 73 73 20 63 6f 6c 6f 72 |'((((cla|ss color|
|00005920| 29 29 20 28 3a 66 6f 72 | 65 67 72 6f 75 6e 64 20 |)) (:for|eground |
|00005930| 22 72 65 64 22 29 29 20 | 28 74 20 28 3a 62 6f 6c |"red")) |(t (:bol|
|00005940| 64 20 74 20 3a 75 6e 64 | 65 72 6c 69 6e 65 20 74 |d t :und|erline t|
|00005950| 29 29 29 20 22 46 61 63 | 65 20 75 73 65 64 20 66 |))) "Fac|e used f|
|00005960| 6f 72 20 70 72 65 73 73 | 65 64 20 62 75 74 74 6f |or press|ed butto|
|00005970| 6e 73 2e 22 20 3a 67 72 | 6f 75 70 20 27 77 69 64 |ns." :gr|oup 'wid|
|00005980| 67 65 74 2d 66 61 63 65 | 73 29 0a 23 40 34 38 20 |get-face|s).#@48 |
|00005990| 43 68 61 72 61 63 74 65 | 72 20 70 6f 73 69 74 69 |Characte|r positi|
|000059a0| 6f 6e 20 6f 66 20 74 68 | 65 20 6d 6f 75 73 65 20 |on of th|e mouse |
|000059b0| 65 76 65 6e 74 2c 20 6f | 72 20 6e 69 6c 2e 1f 0a |event, o|r nil...|
|000059c0| 28 64 65 66 61 6c 69 61 | 73 20 27 77 69 64 67 65 |(defalia|s 'widge|
|000059d0| 74 2d 65 76 65 6e 74 2d | 70 6f 69 6e 74 20 23 5b |t-event-|point #[|
|000059e0| 28 65 76 65 6e 74 29 20 | 22 c0 09 21 ad 83 c2 09 |(event) |"..!....|
|000059f0| 21 87 22 20 5b 6d 6f 75 | 73 65 2d 65 76 65 6e 74 |!." [mou|se-event|
|00005a00| 2d 70 20 65 76 65 6e 74 | 20 65 76 65 6e 74 2d 70 |-p event| event-p|
|00005a10| 6f 69 6e 74 5d 20 32 20 | 28 23 24 20 2e 20 32 32 |oint] 2 |(#$ . 22|
|00005a20| 39 32 38 29 5d 29 0a 23 | 40 33 36 20 49 6e 76 6f |928)]).#|@36 Invo|
|00005a30| 6b 65 20 62 75 74 74 6f | 6e 20 62 65 6c 6f 77 20 |ke butto|n below |
|00005a40| 6d 6f 75 73 65 20 70 6f | 69 6e 74 65 72 2e 1f 0a |mouse po|inter...|
|00005a50| 28 64 65 66 61 6c 69 61 | 73 20 27 77 69 64 67 65 |(defalia|s 'widge|
|00005a60| 74 2d 62 75 74 74 6f 6e | 2d 63 6c 69 63 6b 20 23 |t-button|-click #|
|00005a70| 5b 28 65 76 65 6e 74 29 | 20 22 c0 09 21 ab 84 c2 |[(event)| "..!...|
|00005a80| 09 21 87 c3 09 21 83 ac | 00 c3 09 21 1c c5 0c c6 |.!...!..|...!....|
|00005a90| 5c 22 89 1e 06 83 a7 00 | c7 0e 06 c8 5c 22 1e 09 |\"......|....\"..|
|00005aa0| ca 0e 09 cb 5c 22 1e 0b | ca 0e 09 cc 5c 22 1e 0c |....\"..|....\"..|
|00005ab0| ca 0e 09 cd 5c 22 1e 0d | ce 8e cf 0e 0c 44 89 1e |....\"..|.....D..|
|00005ac0| 10 0e 0b 3c ab 84 0e 0b | aa 83 0e 0b 43 a4 88 d1 |...<....|....C...|
|00005ad0| d2 0e 10 5c 22 16 10 d3 | 0e 09 cc 0e 10 23 88 29 |...\"...|.....#.)|
|00005ae0| d4 0e 06 d5 09 23 ac 8e | d6 d7 20 89 11 21 ac 86 |.....#..|.. ..!..|
|00005af0| d8 09 21 88 aa 72 d3 0e | 09 cc d9 23 88 d3 0e 09 |..!..r..|...#....|
|00005b00| cd d9 23 88 c3 09 21 14 | 70 da 0e 09 21 61 ac 84 |..#...!.|p...!a..|
|00005b10| db dc 21 88 0c ad 8d dd | 0e 09 0c 89 23 ad 85 de |..!.....|....#...|
|00005b20| 0e 06 09 5c 22 2d aa 83 | db df 21 2a 87 e0 e1 21 |...\"-..|..!*...!|
|00005b30| 87 22 20 5b 65 76 65 6e | 74 2d 67 6c 79 70 68 20 |." [even|t-glyph |
|00005b40| 65 76 65 6e 74 20 77 69 | 64 67 65 74 2d 67 6c 79 |event wi|dget-gly|
|00005b50| 70 68 2d 63 6c 69 63 6b | 20 77 69 64 67 65 74 2d |ph-click| widget-|
|00005b60| 65 76 65 6e 74 2d 70 6f | 69 6e 74 20 70 6f 73 20 |event-po|int pos |
|00005b70| 67 65 74 2d 63 68 61 72 | 2d 70 72 6f 70 65 72 74 |get-char|-propert|
|00005b80| 79 20 62 75 74 74 6f 6e | 20 77 69 64 67 65 74 2d |y button| widget-|
|00005b90| 67 65 74 20 3a 62 75 74 | 74 6f 6e 2d 65 78 74 65 |get :but|ton-exte|
|00005ba0| 6e 74 20 65 78 74 65 6e | 74 20 65 78 74 65 6e 74 |nt exten|t extent|
|00005bb0| 2d 70 72 6f 70 65 72 74 | 79 20 66 61 63 65 20 6d |-propert|y face m|
|00005bc0| 6f 75 73 65 2d 66 61 63 | 65 20 68 65 6c 70 2d 65 |ouse-fac|e help-e|
|00005bd0| 63 68 6f 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |cho ((by|te-code |
|00005be0| 22 c0 09 c2 5c 6e 23 88 | c0 09 c3 0b 23 87 22 20 |"...\n#.|....#." |
|00005bf0| 5b 73 65 74 2d 65 78 74 | 65 6e 74 2d 70 72 6f 70 |[set-ext|ent-prop|
|00005c00| 65 72 74 79 20 65 78 74 | 65 6e 74 20 6d 6f 75 73 |erty ext|ent mous|
|00005c10| 65 2d 66 61 63 65 20 68 | 65 6c 70 2d 65 63 68 6f |e-face h|elp-echo|
|00005c20| 5d 20 34 29 29 20 77 69 | 64 67 65 74 2d 62 75 74 |] 4)) wi|dget-but|
|00005c30| 74 6f 6e 2d 70 72 65 73 | 73 65 64 2d 66 61 63 65 |ton-pres|sed-face|
|00005c40| 20 6d 65 72 67 65 20 64 | 65 6c 65 74 65 2d 69 66 | merge d|elete-if|
|00005c50| 2d 6e 6f 74 20 66 69 6e | 64 2d 66 61 63 65 20 73 |-not fin|d-face s|
|00005c60| 65 74 2d 65 78 74 65 6e | 74 2d 70 72 6f 70 65 72 |et-exten|t-proper|
|00005c70| 74 79 20 77 69 64 67 65 | 74 2d 61 70 70 6c 79 20 |ty widge|t-apply |
|00005c80| 3a 6d 6f 75 73 65 2d 64 | 6f 77 6e 2d 61 63 74 69 |:mouse-d|own-acti|
|00005c90| 6f 6e 20 62 75 74 74 6f | 6e 2d 72 65 6c 65 61 73 |on butto|n-releas|
|00005ca0| 65 2d 65 76 65 6e 74 2d | 70 20 6e 65 78 74 2d 65 |e-event-|p next-e|
|00005cb0| 76 65 6e 74 20 64 69 73 | 70 61 74 63 68 2d 65 76 |vent dis|patch-ev|
|00005cc0| 65 6e 74 20 6e 69 6c 20 | 65 78 74 65 6e 74 2d 6f |ent nil |extent-o|
|00005cd0| 62 6a 65 63 74 20 65 72 | 72 6f 72 20 22 42 75 66 |bject er|ror "Buf|
|00005ce0| 66 65 72 20 63 68 61 6e | 67 65 64 20 64 75 72 69 |fer chan|ged duri|
|00005cf0| 6e 67 20 6d 6f 75 73 65 | 20 6d 6f 74 69 6f 6e 22 |ng mouse| motion"|
|00005d00| 20 65 78 74 65 6e 74 2d | 69 6e 2d 72 65 67 69 6f | extent-|in-regio|
|00005d10| 6e 2d 70 20 77 69 64 67 | 65 74 2d 61 70 70 6c 79 |n-p widg|et-apply|
|00005d20| 2d 61 63 74 69 6f 6e 20 | 22 60 77 69 64 67 65 74 |-action |"`widget|
|00005d30| 2d 62 75 74 74 6f 6e 2d | 63 6c 69 63 6b 27 20 63 |-button-|click' c|
|00005d40| 61 6c 6c 65 64 20 6f 75 | 74 73 69 64 65 20 62 75 |alled ou|tside bu|
|00005d50| 74 74 6f 6e 22 20 6d 65 | 73 73 61 67 65 20 22 59 |tton" me|ssage "Y|
|00005d60| 6f 75 20 63 6c 69 63 6b | 65 64 20 73 6f 6d 65 77 |ou click|ed somew|
|00005d70| 68 65 72 65 20 77 65 69 | 72 64 22 5d 20 35 20 28 |here wei|rd"] 5 (|
|00005d80| 23 24 20 2e 20 32 33 30 | 38 34 29 20 22 40 65 22 |#$ . 230|84) "@e"|
|00005d90| 5d 29 0a 23 40 33 35 20 | 49 6e 76 6f 6b 65 20 67 |]).#@35 |Invoke g|
|00005da0| 6c 79 70 68 20 62 65 6c | 6f 77 20 6d 6f 75 73 65 |lyph bel|ow mouse|
|00005db0| 20 70 6f 69 6e 74 65 72 | 2e 1f 0a 28 64 65 66 61 | pointer|...(defa|
|00005dc0| 6c 69 61 73 20 27 77 69 | 64 67 65 74 2d 62 75 74 |lias 'wi|dget-but|
|00005dd0| 74 6f 6e 31 2d 63 6c 69 | 63 6b 20 23 5b 28 65 76 |ton1-cli|ck #[(ev|
|00005de0| 65 6e 74 29 20 22 c0 09 | 21 ab 84 c2 09 21 87 c3 |ent) "..|!....!..|
|00005df0| 0c c5 20 5c 22 1e 06 c7 | 0e 06 21 ad 84 c8 0e 06 |.. \"...|..!.....|
|00005e00| 21 29 87 22 20 5b 65 76 | 65 6e 74 2d 67 6c 79 70 |!)." [ev|ent-glyp|
|00005e10| 68 20 65 76 65 6e 74 20 | 77 69 64 67 65 74 2d 67 |h event |widget-g|
|00005e20| 6c 79 70 68 2d 63 6c 69 | 63 6b 20 6c 6f 6f 6b 75 |lyph-cli|ck looku|
|00005e30| 70 2d 6b 65 79 20 77 69 | 64 67 65 74 2d 67 6c 6f |p-key wi|dget-glo|
|00005e40| 62 61 6c 2d 6d 61 70 20 | 74 68 69 73 2d 63 6f 6d |bal-map |this-com|
|00005e50| 6d 61 6e 64 2d 6b 65 79 | 73 20 63 6f 6d 6d 61 6e |mand-key|s comman|
|00005e60| 64 20 63 6f 6d 6d 61 6e | 64 70 20 63 61 6c 6c 2d |d comman|dp call-|
|00005e70| 69 6e 74 65 72 61 63 74 | 69 76 65 6c 79 5d 20 33 |interact|ively] 3|
|00005e80| 20 28 23 24 20 2e 20 32 | 33 39 36 30 29 20 22 40 | (#$ . 2|3960) "@|
|00005e90| 65 22 5d 29 0a 23 40 32 | 36 20 48 61 6e 64 6c 65 |e"]).#@2|6 Handle|
|00005ea0| 20 63 6c 69 63 6b 20 6f | 6e 20 61 20 67 6c 79 70 | click o|n a glyp|
|00005eb0| 68 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 77 |h...(def|alias 'w|
|00005ec0| 69 64 67 65 74 2d 67 6c | 79 70 68 2d 63 6c 69 63 |idget-gl|yph-clic|
|00005ed0| 6b 20 23 5b 28 65 76 65 | 6e 74 29 20 22 c0 09 21 |k #[(eve|nt) "..!|
|00005ee0| 1a c3 09 21 1c c5 0c c6 | 5c 22 89 1e 07 ab 87 c8 |...!....|\"......|
|00005ef0| 0e 07 c9 5c 22 ae 81 5c | 6e 1e 5c 6e 0e 07 ab 87 |...\"..\|n.\n....|
|00005f00| c8 0e 07 cb 5c 22 ae 81 | 5c 6e 1e 0c 09 1e 0d ce |....\"..|\n......|
|00005f10| 0e 07 cf 5c 22 ac 84 d0 | d1 21 88 d2 1e 13 d4 8e |...\"...|.!......|
|00005f20| d5 0c 0e 5c 6e 5c 22 88 | d6 d7 21 88 ce 0e 07 d8 |...\n\".|..!.....|
|00005f30| 09 23 ac c6 d9 0e 0d 21 | ac c0 da 0e 0d 21 ac 85 |.#.....!|.....!..|
|00005f40| db 0e 0d 21 88 dc 0e 0d | 21 ab a8 0c c3 0e 0d 21 |...!....|!......!|
|00005f50| 61 ab 91 0e 13 d2 61 ac | 9a d5 0c 0e 5c 6e 5c 22 |a.....a.|....\n\"|
|00005f60| 88 d2 16 13 aa 8f 0e 13 | dd 61 ac 89 d5 0c 0e 0c |........|.a......|
|00005f70| 5c 22 88 dd 16 13 de 09 | 21 16 0d aa 3a 70 df 0c |\"......|!...:p..|
|00005f80| 21 61 ac 84 d0 e0 21 88 | 0c c3 0e 0d 21 61 ad a2 |!a....!.|....!a..|
|00005f90| c5 c3 09 21 c6 5c 22 89 | 1e 07 ac 85 e1 e2 21 aa |...!.\".|......!.|
|00005fa0| 91 ce 0e 07 cf 5c 22 ac | 85 d0 e3 21 aa 85 e4 0e |.....\".|...!....|
|00005fb0| 07 09 5c 22 29 2e 08 87 | 22 20 5b 65 76 65 6e 74 |..\")...|" [event|
|00005fc0| 2d 67 6c 79 70 68 20 65 | 76 65 6e 74 20 67 6c 79 |-glyph e|vent gly|
|00005fd0| 70 68 20 65 76 65 6e 74 | 2d 67 6c 79 70 68 2d 65 |ph event|-glyph-e|
|00005fe0| 78 74 65 6e 74 20 65 78 | 74 65 6e 74 20 65 78 74 |xtent ex|tent ext|
|00005ff0| 65 6e 74 2d 70 72 6f 70 | 65 72 74 79 20 67 6c 79 |ent-prop|erty gly|
|00006000| 70 68 2d 77 69 64 67 65 | 74 20 77 69 64 67 65 74 |ph-widge|t widget|
|00006010| 20 77 69 64 67 65 74 2d | 67 65 74 20 3a 67 6c 79 | widget-|get :gly|
|00006020| 70 68 2d 64 6f 77 6e 20 | 64 6f 77 6e 2d 67 6c 79 |ph-down |down-gly|
|00006030| 70 68 20 3a 67 6c 79 70 | 68 2d 75 70 20 75 70 2d |ph :glyp|h-up up-|
|00006040| 67 6c 79 70 68 20 6c 61 | 73 74 20 77 69 64 67 65 |glyph la|st widge|
|00006050| 74 2d 61 70 70 6c 79 20 | 3a 61 63 74 69 76 65 20 |t-apply |:active |
|00006060| 65 72 72 6f 72 20 22 54 | 68 69 73 20 77 69 64 67 |error "T|his widg|
|00006070| 65 74 20 69 73 20 69 6e | 61 63 74 69 76 65 22 20 |et is in|active" |
|00006080| 64 6f 77 6e 20 63 75 72 | 72 65 6e 74 2d 67 6c 79 |down cur|rent-gly|
|00006090| 70 68 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ph ((byt|e-code "|
|000060a0| 08 c1 61 ab 90 c2 0b 21 | ab 8b c4 0b 21 ac 86 c5 |..a....!|....!...|
|000060b0| 0b 0e 06 5c 22 88 c1 87 | 22 20 5b 63 75 72 72 65 |...\"...|" [curre|
|000060c0| 6e 74 2d 67 6c 79 70 68 | 20 64 6f 77 6e 20 65 78 |nt-glyph| down ex|
|000060d0| 74 65 6e 74 2d 6c 69 76 | 65 2d 70 20 65 78 74 65 |tent-liv|e-p exte|
|000060e0| 6e 74 20 65 78 74 65 6e | 74 2d 64 65 74 61 63 68 |nt exten|t-detach|
|000060f0| 65 64 2d 70 20 73 65 74 | 2d 65 78 74 65 6e 74 2d |ed-p set|-extent-|
|00006100| 65 6e 64 2d 67 6c 79 70 | 68 20 75 70 2d 67 6c 79 |end-glyp|h up-gly|
|00006110| 70 68 5d 20 33 29 29 20 | 73 65 74 2d 65 78 74 65 |ph] 3)) |set-exte|
|00006120| 6e 74 2d 65 6e 64 2d 67 | 6c 79 70 68 20 73 69 74 |nt-end-g|lyph sit|
|00006130| 2d 66 6f 72 20 30 20 3a | 6d 6f 75 73 65 2d 64 6f |-for 0 :|mouse-do|
|00006140| 77 6e 2d 61 63 74 69 6f | 6e 20 62 75 74 74 6f 6e |wn-actio|n button|
|00006150| 2d 72 65 6c 65 61 73 65 | 2d 65 76 65 6e 74 2d 70 |-release|-event-p|
|00006160| 20 62 75 74 74 6f 6e 2d | 70 72 65 73 73 2d 65 76 | button-|press-ev|
|00006170| 65 6e 74 2d 70 20 64 69 | 73 70 61 74 63 68 2d 65 |ent-p di|spatch-e|
|00006180| 76 65 6e 74 20 6d 6f 74 | 69 6f 6e 2d 65 76 65 6e |vent mot|ion-even|
|00006190| 74 2d 70 20 75 70 20 6e | 65 78 74 2d 65 76 65 6e |t-p up n|ext-even|
|000061a0| 74 20 65 78 74 65 6e 74 | 2d 6f 62 6a 65 63 74 20 |t extent|-object |
|000061b0| 22 42 75 66 66 65 72 20 | 63 68 61 6e 67 65 64 20 |"Buffer |changed |
|000061c0| 64 75 72 69 6e 67 20 6d | 6f 75 73 65 20 6d 6f 74 |during m|ouse mot|
|000061d0| 69 6f 6e 22 20 6d 65 73 | 73 61 67 65 20 22 59 6f |ion" mes|sage "Yo|
|000061e0| 75 20 63 6c 69 63 6b 65 | 64 20 6f 6e 20 61 20 67 |u clicke|d on a g|
|000061f0| 6c 79 70 68 22 20 22 54 | 68 69 73 20 67 6c 79 70 |lyph" "T|his glyp|
|00006200| 68 20 69 73 20 69 6e 61 | 63 74 69 76 65 22 20 77 |h is ina|ctive" w|
|00006210| 69 64 67 65 74 2d 61 70 | 70 6c 79 2d 61 63 74 69 |idget-ap|ply-acti|
|00006220| 6f 6e 5d 20 35 20 28 23 | 24 20 2e 20 32 34 32 31 |on] 5 (#|$ . 2421|
|00006230| 38 29 5d 29 0a 23 40 32 | 33 20 49 6e 76 6f 6b 65 |8)]).#@2|3 Invoke|
|00006240| 20 62 75 74 74 6f 6e 20 | 61 74 20 50 4f 53 2e 1f | button |at POS..|
|00006250| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 77 69 64 67 |.(defali|as 'widg|
|00006260| 65 74 2d 62 75 74 74 6f | 6e 2d 70 72 65 73 73 20 |et-butto|n-press |
|00006270| 23 5b 28 70 6f 73 20 26 | 6f 70 74 69 6f 6e 61 6c |#[(pos &|optional|
|00006280| 20 65 76 65 6e 74 29 20 | 22 c0 09 c2 5c 22 89 1a | event) |"...\"..|
|00006290| ab 86 c3 5c 6e 0c 5c 22 | aa 93 c5 0e 06 c7 20 5c |...\n.\"|...... \|
|000062a0| 22 1e 08 c9 0e 08 21 ad | 84 ca 0e 08 21 29 29 87 |".....!.|....!)).|
|000062b0| 22 20 5b 67 65 74 2d 63 | 68 61 72 2d 70 72 6f 70 |" [get-c|har-prop|
|000062c0| 65 72 74 79 20 70 6f 73 | 20 62 75 74 74 6f 6e 20 |erty pos| button |
|000062d0| 77 69 64 67 65 74 2d 61 | 70 70 6c 79 2d 61 63 74 |widget-a|pply-act|
|000062e0| 69 6f 6e 20 65 76 65 6e | 74 20 6c 6f 6f 6b 75 70 |ion even|t lookup|
|000062f0| 2d 6b 65 79 20 77 69 64 | 67 65 74 2d 67 6c 6f 62 |-key wid|get-glob|
|00006300| 61 6c 2d 6d 61 70 20 74 | 68 69 73 2d 63 6f 6d 6d |al-map t|his-comm|
|00006310| 61 6e 64 2d 6b 65 79 73 | 20 63 6f 6d 6d 61 6e 64 |and-keys| command|
|00006320| 20 63 6f 6d 6d 61 6e 64 | 70 20 63 61 6c 6c 2d 69 | command|p call-i|
|00006330| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 5d 20 34 20 |nteracti|vely] 4 |
|00006340| 28 23 24 20 2e 20 32 35 | 31 34 36 29 20 22 40 64 |(#$ . 25|146) "@d|
|00006350| 22 5d 29 0a 23 40 38 31 | 20 52 65 74 75 72 6e 20 |"]).#@81| Return |
|00006360| 74 68 65 20 74 61 62 61 | 62 6c 65 20 77 69 64 67 |the taba|ble widg|
|00006370| 65 74 20 61 74 20 50 4f | 53 2c 20 6f 72 20 6e 69 |et at PO|S, or ni|
|00006380| 6c 2e 0a 50 4f 53 20 64 | 65 66 61 75 6c 74 73 20 |l..POS d|efaults |
|00006390| 74 6f 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |to the v|alue of |
|000063a0| 28 70 6f 69 6e 74 29 2e | 1f 0a 28 64 65 66 61 6c |(point).|..(defal|
|000063b0| 69 61 73 20 27 77 69 64 | 67 65 74 2d 74 61 62 61 |ias 'wid|get-taba|
|000063c0| 62 6c 65 2d 61 74 20 23 | 5b 28 26 6f 70 74 69 6f |ble-at #|[(&optio|
|000063d0| 6e 61 6c 20 70 6f 73 20 | 6c 61 73 74 2d 74 61 62 |nal pos |last-tab|
|000063e0| 20 62 61 63 6b 77 61 72 | 64 70 29 20 22 08 ac 82 | backwar|dp) "...|
|000063f0| 60 10 c1 08 21 89 1a ad | a9 c3 5c 6e c4 5c 22 89 |`...!...|..\n.\".|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
